(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    110360,       2672]
NotebookOptionsPosition[    106089,       2528]
NotebookOutlinePosition[    106612,       2546]
CellTagsIndexPosition[    106569,       2543]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Online Appendix 1 of Calzolari, Denicol\[OGrave] and Zanchettin \
\[OpenCurlyDoubleQuote]Exclusive dealing with distortionary pricing,\
\[CloseCurlyDoubleQuote] 2019\
\>", "Title",
 CellChangeTimes->{{3.660977104424218*^9, 3.6609771218504496`*^9}, {
  3.661672174425722*^9, 3.6616721804087033`*^9}, {3.7618327186023464`*^9, 
  3.7618327355291233`*^9}, {3.761836831324597*^9, 3.7618368356211195`*^9}}],

Cell["\<\
The Reduced Form model with Competitive Fringe of Section 4\
\>", "Subtitle",
 CellChangeTimes->{{3.6609771327187176`*^9, 3.660977147509225*^9}, {
   3.6609772050649867`*^9, 3.6609772199869604`*^9}, {3.661672212481048*^9, 
   3.661672215543085*^9}, {3.7618326324766536`*^9, 3.7618326364710283`*^9}, {
   3.7618327186023464`*^9, 3.7618327422800317`*^9}, 3.7618368392872777`*^9}],

Cell["April 2019", "Author",
 CellChangeTimes->{{3.660979477434865*^9, 3.6609794777730885`*^9}, {
  3.6609795229773865`*^9, 3.6609795270330915`*^9}, {3.7618327186023464`*^9, 
  3.761832746962512*^9}}],

Cell[CellGroupData[{

Cell["Defining payoffs and tariffs", "Section",
 CellChangeTimes->{{3.6609772427701063`*^9, 3.660977245635023*^9}, 
   3.7618327186023464`*^9, {3.761833047725255*^9, 3.7618330526720285`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Buyer", "'"}], "s", " ", "utility"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"u", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"q1", " ", "+", " ", "q2"}], ")"}], " ", "-", 
      RowBox[{
       RowBox[{"1", "/", "2"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q1", "^", "2"}], " ", "+", " ", 
         RowBox[{"q2", "^", "2"}]}], ")"}]}], " ", "-", " ", 
      RowBox[{"\[Gamma]", "  ", "q1", "  ", "q2"}]}]}], ";"}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ue1", "=", 
     RowBox[{"u", "/.", 
      RowBox[{"q2", "\[Rule]", "0"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ue2", "=", 
     RowBox[{"u", "/.", 
      RowBox[{"q1", "\[Rule]", "0"}]}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Parameters", ":", " ", 
      RowBox[{"c", " ", 
       RowBox[{"in", " ", "[", 
        RowBox[{"0", ",", "1"}], "]"}]}]}], ",", " ", 
     RowBox[{"\[Gamma]", " ", 
      RowBox[{"in", " ", "[", 
       RowBox[{"0", ",", "1"}], "]"}]}]}], "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P1", "=", 
     RowBox[{
      RowBox[{"p1", " ", "q1"}], "+", "F1"}]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
    "Two", " ", "part", " ", "tariff", " ", "of", " ", "dominant", " ", 
     "firm", " ", "1"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P2", "=", 
     RowBox[{"c", " ", "q2"}]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
    "Competitive", " ", "pricing", " ", "of", " ", "the", " ", "Fringe"}], 
    "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.6430838325424433`*^9, 3.6430839031724434`*^9}, {
   3.6430888508859434`*^9, 3.643088853655944*^9}, {3.6430914144819436`*^9, 
   3.6430914941719437`*^9}, {3.643091560221944*^9, 3.6430915653619432`*^9}, {
   3.6430916331619434`*^9, 3.6430916468819437`*^9}, {3.643091685051944*^9, 
   3.6430917525619435`*^9}, {3.6430917968219433`*^9, 
   3.6430919083839436`*^9}, {3.64353514493536*^9, 3.6435351587056355`*^9}, 
   3.6609772896074085`*^9, {3.660977321278571*^9, 3.6609773565861654`*^9}, {
   3.6609774625639906`*^9, 3.6609774807231283`*^9}, {3.660977589162599*^9, 
   3.660977621661601*^9}, {3.660977861598258*^9, 3.6609779123098993`*^9}, {
   3.660978175796667*^9, 3.6609782413818645`*^9}, {3.6609831638312426`*^9, 
   3.6609831935685606`*^9}, {3.660993006842454*^9, 3.6609930396874056`*^9}, 
   3.7618327186023464`*^9, {3.761832804215413*^9, 3.7618328044108906`*^9}, {
   3.761833030508293*^9, 3.7618330353772745`*^9}, {3.761833984521212*^9, 
   3.7618339855295534`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Semi", "-", 
    RowBox[{"indirect", " ", "utility", " ", "of", " ", "buyer"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"q2star", "=", 
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"u", " ", "-", " ", "P2"}], ",", "q2"}], "]"}], "\[Equal]", 
        "0"}], ",", "q2"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"v", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"u", " ", "-", " ", "P2"}], "/.", 
      RowBox[{"q2", "\[Rule]", "q2star"}]}], "]"}], " "}]}]}]], "Input",
 CellChangeTimes->{{3.6430922587559433`*^9, 3.6430922724559436`*^9}, 
   3.643535203696535*^9, {3.6435359591216435`*^9, 3.643535963681735*^9}, {
   3.655011809487033*^9, 3.6550118103451185`*^9}, {3.6609775127595367`*^9, 
   3.6609775234847107`*^9}, 3.660977636792717*^9, {3.660977844978651*^9, 
   3.660977859320175*^9}, {3.660993075292204*^9, 3.6609930774266253`*^9}, 
   3.761832718603344*^9, {3.7618331531553288`*^9, 3.7618331847518387`*^9}}],

Cell[BoxData[
 RowBox[{"1", "-", "c", "-", 
  RowBox[{"q1", " ", "\[Gamma]"}]}]], "Output",
 CellChangeTimes->{3.7618332110614843`*^9, 3.7618340332967825`*^9, 
  3.7620674802746944`*^9, 3.762067700426995*^9, 3.763116963075077*^9, 
  3.7631170361296997`*^9, 3.763117071543969*^9, 3.7631209851407113`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    SuperscriptBox["c", "2"], "+", 
    RowBox[{"2", " ", "c", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"q1", " ", "\[Gamma]"}]}], ")"}]}], "+", 
    RowBox[{"q1", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "2"}], "+", "q1", "+", 
       RowBox[{"q1", " ", "\[Gamma]"}]}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.7618332110614843`*^9, 3.7618340332967825`*^9, 
  3.7620674802746944`*^9, 3.762067700426995*^9, 3.763116963075077*^9, 
  3.7631170361296997`*^9, 3.763117071543969*^9, 3.763120985220498*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"q1NE", "=", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"v", " ", "-", " ", "P1"}], ",", "q1"}], "]"}], "\[Equal]", 
      "0"}], ",", "q1"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"q2NE", "=", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{"q2star", "/.", 
    RowBox[{"q1", "\[Rule]", "q1NE"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"q1E", "=", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"ue1", " ", "-", " ", "P1"}], ",", "q1"}], "]"}], "\[Equal]", 
      "0"}], ",", "q1"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.6430922816059437`*^9, 3.6430922950359435`*^9}, {
   3.6435359889422398`*^9, 3.6435360042525463`*^9}, {3.6609776446909933`*^9, 
   3.660977750381975*^9}, 3.761832718603344*^9, {3.7618339973050275`*^9, 
   3.7618340015646353`*^9}, 3.761834517442299*^9, 3.7620676835471816`*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", "p1", "+", "\[Gamma]", "-", 
   RowBox[{"c", " ", "\[Gamma]"}]}], 
  RowBox[{
   RowBox[{"-", "1"}], "+", 
   SuperscriptBox["\[Gamma]", "2"]}]]], "Output",
 CellChangeTimes->{
  3.7618339541334696`*^9, 3.761834003843542*^9, 3.7618340383383026`*^9, 
   3.7618345202976475`*^9, 3.762067480516075*^9, {3.7620676837994585`*^9, 
   3.7620677004818726`*^9}, 3.7631169632406335`*^9, 3.763117036183543*^9, 
   3.7631170716706324`*^9, 3.763120985234486*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", "c", "+", "\[Gamma]", "-", 
   RowBox[{"p1", " ", "\[Gamma]"}]}], 
  RowBox[{
   RowBox[{"-", "1"}], "+", 
   SuperscriptBox["\[Gamma]", "2"]}]]], "Output",
 CellChangeTimes->{
  3.7618339541334696`*^9, 3.761834003843542*^9, 3.7618340383383026`*^9, 
   3.7618345202976475`*^9, 3.762067480516075*^9, {3.7620676837994585`*^9, 
   3.7620677004818726`*^9}, 3.7631169632406335`*^9, 3.763117036183543*^9, 
   3.7631170716706324`*^9, 3.76312098524047*^9}],

Cell[BoxData[
 RowBox[{"1", "-", "p1"}]], "Output",
 CellChangeTimes->{
  3.7618339541334696`*^9, 3.761834003843542*^9, 3.7618340383383026`*^9, 
   3.7618345202976475`*^9, 3.762067480516075*^9, {3.7620676837994585`*^9, 
   3.7620677004818726`*^9}, 3.7631169632406335`*^9, 3.763117036183543*^9, 
   3.7631170716706324`*^9, 3.763120985241442*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Non", " ", "exclusive", " ", "payoffs"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"u", " ", "-", 
      RowBox[{"p1", " ", "q1"}], "-", 
      RowBox[{"c", " ", "q2"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"q1", "\[Rule]", "q1NE"}], ",", 
       RowBox[{"q2", "\[Rule]", "q2NE"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ProfitBNE", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", "%", "]"}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Mu]"}], ")"}], "F1"}]}]}], "\[IndentingNewLine]", 
   RowBox[{"ProfitBE1", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{
       RowBox[{"ue1", " ", "-", " ", 
        RowBox[{"p1", " ", "q1"}]}], "/.", 
       RowBox[{"q1", "\[Rule]", "q1E"}]}], "]"}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Mu]"}], ")"}], "F1"}]}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P1", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"q1", "\[Rule]", "q1NE"}], ",", 
       RowBox[{"q2", "\[Rule]", "q2NE"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Profit1NE", "=", 
    RowBox[{"FullSimplify", "[", "%", "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"Profit1E", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"P1", "/.", 
      RowBox[{"q1", "\[Rule]", "q1E"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7618333702268972`*^9, 3.7618334569808826`*^9}, 
   3.761834144141417*^9, 3.7618344571586585`*^9, 3.761834867366617*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"2", "-", 
     RowBox[{"2", " ", "c"}], "+", 
     SuperscriptBox["c", "2"], "-", 
     RowBox[{"2", " ", "p1"}], "+", 
     SuperscriptBox["p1", "2"], "-", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "c"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "p1"}], ")"}], " ", "\[Gamma]"}]}], 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]]}], "-", 
  RowBox[{"F1", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Mu]"}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.7618334484427137`*^9, 3.76183345790541*^9}, 
   3.76183406139764*^9, 3.761834146205858*^9, 3.7618344582497315`*^9, 
   3.761834869059082*^9, 3.7620674806058373`*^9, {3.7620676937628136`*^9, 
   3.762067700573601*^9}, 3.7631169633473506`*^9, 3.7631170362782907`*^9, 
   3.763117071790312*^9, 3.7631209853212304`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "p1"}], ")"}], "2"]}], "-", 
  RowBox[{"F1", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Mu]"}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.7618334484427137`*^9, 3.76183345790541*^9}, 
   3.76183406139764*^9, 3.761834146205858*^9, 3.7618344582497315`*^9, 
   3.761834869059082*^9, 3.7620674806058373`*^9, {3.7620676937628136`*^9, 
   3.762067700573601*^9}, 3.7631169633473506`*^9, 3.7631170362782907`*^9, 
   3.763117071790312*^9, 3.7631209853222275`*^9}],

Cell[BoxData[
 RowBox[{"F1", "+", 
  FractionBox[
   RowBox[{"p1", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "p1", "+", "\[Gamma]", "-", 
      RowBox[{"c", " ", "\[Gamma]"}]}], ")"}]}], 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    SuperscriptBox["\[Gamma]", "2"]}]]}]], "Output",
 CellChangeTimes->{{3.7618334484427137`*^9, 3.76183345790541*^9}, 
   3.76183406139764*^9, 3.761834146205858*^9, 3.7618344582497315`*^9, 
   3.761834869059082*^9, 3.7620674806058373`*^9, {3.7620676937628136`*^9, 
   3.762067700573601*^9}, 3.7631169633473506`*^9, 3.7631170362782907`*^9, 
   3.763117071790312*^9, 3.7631209853461637`*^9}],

Cell[BoxData[
 RowBox[{"F1", "+", "p1", "-", 
  SuperscriptBox["p1", "2"]}]], "Output",
 CellChangeTimes->{{3.7618334484427137`*^9, 3.76183345790541*^9}, 
   3.76183406139764*^9, 3.761834146205858*^9, 3.7618344582497315`*^9, 
   3.761834869059082*^9, 3.7620674806058373`*^9, {3.7620676937628136`*^9, 
   3.762067700573601*^9}, 3.7631169633473506`*^9, 3.7631170362782907`*^9, 
   3.763117071790312*^9, 3.7631209853521457`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"v0", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{"v", "/.", 
    RowBox[{"q1", "\[Rule]", "0"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Reservation", " ", "payoff", " ", "for", " ", "buyer"}], ",", 
    " ", 
    RowBox[{
    "exclusively", " ", "dealing", " ", "with", " ", "the", " ", "fringe"}]}],
    "*)"}]}]], "Input",
 CellChangeTimes->{{3.6430930283599434`*^9, 3.6430930501599436`*^9}, {
   3.660978010545952*^9, 3.660978053580998*^9}, {3.6609781166576366`*^9, 
   3.6609781619304028`*^9}, {3.6609793118996615`*^9, 3.660979328336651*^9}, {
   3.6609798441427603`*^9, 3.6609798465633755`*^9}, {3.660981772224298*^9, 
   3.6609817815085025`*^9}, 3.761832718607333*^9, 3.761833512899354*^9, {
   3.761833588362562*^9, 3.761833594402422*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "c"}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{3.7618335245013285`*^9, 3.761834089865549*^9, 
  3.7620674806496906`*^9, 3.762067700628481*^9, 3.7631169634002075`*^9, 
  3.7631170363231697`*^9, 3.7631170718621187`*^9, 3.7631209853651505`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Analysis: Exclusive contracts prohibited", "Section",
 CellChangeTimes->{{3.6609916121591845`*^9, 3.6609916182042265`*^9}, 
   3.6670309380680985`*^9, {3.7155751406110334`*^9, 3.7155751476934333`*^9}, {
   3.7155803227312336`*^9, 3.7155803251862335`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "two", " ", "firms", " ", "will", " ", "set", " ", "the", " ", 
    "fixed", " ", "fees", " ", "so", " ", "that", " ", "they", " ", "extract",
     " ", "the", " ", "bilateral", " ", "surplus"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"tmpF", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"v0", "\[Equal]", "ProfitBNE"}], "}"}], ",", 
       RowBox[{"{", "F1", "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"F1dtmp", "=", 
     RowBox[{"tmpF", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.662034945308031*^9, 3.6620350110658264`*^9}, {
   3.6620354022755737`*^9, 3.662035513523673*^9}, {3.6658052167752223`*^9, 
   3.665805222902317*^9}, 3.6670309380690985`*^9, {3.694501496549402*^9, 
   3.6945015038346024`*^9}, {3.6945016979298024`*^9, 
   3.6945017018454027`*^9}, {3.7155753697820334`*^9, 
   3.7155753877988334`*^9}, {3.761833753160881*^9, 3.7618337714390044`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"F1", "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "p1", "+", "\[Gamma]", "-", 
         RowBox[{"c", " ", "\[Gamma]"}]}], ")"}], "2"], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "\[Mu]"}], ")"}]}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.7155753904196334`*^9, {3.7618337644297857`*^9, 3.761833771895783*^9}, 
   3.7618340946228285`*^9, 3.761834152600795*^9, 3.7620674806756573`*^9, 
   3.762067700655384*^9, 3.7631169634490776`*^9, 3.7631170363441267`*^9, 
   3.763117071910987*^9, 3.7631209853910418`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Substituting", " ", "the", " ", "fixed", " ", "fees", " ", "in", " ", 
     "the", " ", "profits"}], ",", " ", 
    RowBox[{
    "we", " ", "determine", " ", "the", " ", "equilibrium", " ", "marginal", 
     " ", "price", " ", "of", " ", "firm", " ", "1"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Profit1NEtmp", "=", 
     RowBox[{"Profit1NE", "/.", 
      RowBox[{"F1", "\[Rule]", "F1dtmp"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"tmpp", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"Profit1NEtmp", ",", "p1"}], "]"}], "\[Equal]", "0"}], 
        "}"}], ",", 
       RowBox[{"{", "p1", "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p1NE", "=", 
     RowBox[{"tmpp", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p2NE", "=", "c"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pricesNE", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"p1", "\[Rule]", "p1NE"}], ",", 
       RowBox[{"p2", "\[Rule]", "p2NE"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "and", " ", "then", " ", "the", " ", "associated", " ", "equilibrium", 
     " ", "payoffs"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PROFIT1NE", "=", 
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Profit1NEtmp", "/.", "pricesNE"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PROFITBNE", "=", 
     RowBox[{"FullSimplify", "[", 
      RowBox[{"ProfitBNE", "/.", "pricesNE"}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.6618428693385496`*^9, 3.661842873194935*^9}, {
   3.6618429315727725`*^9, 3.661843041068721*^9}, {3.661844127033015*^9, 
   3.661844162828015*^9}, {3.6620355512497773`*^9, 3.6620356159582567`*^9}, {
   3.6620356647067003`*^9, 3.662035712478486*^9}, {3.662035762677888*^9, 
   3.6620357676461945`*^9}, {3.665805233236223*^9, 3.665805246376008*^9}, {
   3.665806006001563*^9, 3.6658060213708353`*^9}, {3.6658948093681726`*^9, 
   3.665894820050297*^9}, {3.6658949067411375`*^9, 3.6658949104666224`*^9}, {
   3.6658949869829335`*^9, 3.665895022029005*^9}, {3.6658950645493727`*^9, 
   3.665895064681472*^9}, {3.6658951015707397`*^9, 3.6658951190784206`*^9}, 
   3.6670309380720987`*^9, {3.6945015163090024`*^9, 3.6945015700702024`*^9}, {
   3.694501669470002*^9, 3.6945016700316024`*^9}, {3.6945017048582025`*^9, 
   3.6945017099674025`*^9}, {3.7155754043700333`*^9, 
   3.7155754586366334`*^9}, {3.761833782432607*^9, 3.761833827692593*^9}, {
   3.7618342032971926`*^9, 3.7618342472467337`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"p1", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "c"}], ")"}], " ", "\[Gamma]"}]}], ")"}], 
      " ", "\[Mu]"}], 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Mu]"}]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.7155754598378334`*^9, {3.761833814211628*^9, 3.761833837987079*^9}, 
   3.761834099712212*^9, 3.761834156748687*^9, {3.7618342309971485`*^9, 
   3.761834247682505*^9}, 3.7620674806985607`*^9, 3.7620677006823597`*^9, 
   3.763116963489994*^9, 3.7631170363621054`*^9, 3.7631170719559016`*^9, 
   3.7631209854119873`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"With", " ", "\[Mu]"}], "\[Rule]", 
    RowBox[{
    "0", " ", "marginal", " ", "prices", " ", "are", " ", "efficient"}]}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Limit", "[", 
   RowBox[{"p1NE", ",", 
    RowBox[{"\[Mu]", "\[Rule]", "0"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.665809103625598*^9, 3.6658091043330703`*^9}, 
   3.665809176334755*^9, {3.6658095976927814`*^9, 3.6658096325893197`*^9}, 
   3.667030938075099*^9, {3.6945016207594023`*^9, 3.694501626688402*^9}, {
   3.7155753079850335`*^9, 3.7155753079850335`*^9}, {3.7155755016598334`*^9, 
   3.715575522523033*^9}, 3.761834188632406*^9}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.6675355628893204`*^9, 3.6945016288160024`*^9, 3.694501746061202*^9, 
   3.694511680948374*^9, 3.694752100825987*^9, 3.6947759115622015`*^9, 
   3.695010375326626*^9, 3.6953572640137615`*^9, 3.6959603582110243`*^9, 
   3.6959772571871243`*^9, 3.697168790488615*^9, 3.697175824803461*^9, 
   3.6972579707617507`*^9, 3.708680116387779*^9, 3.7154372905497456`*^9, 
   3.7154379640202084`*^9, 3.7154381418908377`*^9, 3.7155755231696334`*^9, {
   3.7618341852145467`*^9, 3.761834188974492*^9}, 3.7620674821826344`*^9, 
   3.7620677020746255`*^9, 3.7631169650857005`*^9, 3.7631170378151793`*^9, 
   3.7631170734259367`*^9, 3.7631209868481455`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Here", " ", "we", " ", "redefine", " ", "the", " ", "fixed", " ", "fees", 
    " ", "to", " ", "account", " ", "for", " ", "the", " ", "equilibrium", 
    " ", "prices"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"F1NE", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"F1dtmp", "/.", "pricesNE"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.6620359713330956`*^9, 3.6620360310667315`*^9}, 
   3.6670309380760994`*^9, {3.6945016379168024`*^9, 3.694501660199602*^9}, {
   3.6945017500724025`*^9, 3.6945017543020024`*^9}, {3.7155755305796337`*^9, 
   3.7155755504580336`*^9}, 3.7618342524796762`*^9}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "c"}], ")"}], " ", "\[Gamma]"}]}], ")"}], 
     "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Mu]"}], ")"}]}], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Mu]"}]}], ")"}], "2"]}]]}]], "Output",
 CellChangeTimes->{{3.7155755434516335`*^9, 3.7155755506296334`*^9}, 
   3.7618342548533416`*^9, 3.7620674822135105`*^9, 3.76206770210153*^9, 
   3.763116965137563*^9, 3.763117037842108*^9, 3.763117073473808*^9, 
   3.7631209868730783`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"With", " ", "\[Mu]"}], "\[Rule]", 
    RowBox[{
    "Infinity", " ", "fixed", " ", "fee", " ", "vanishes", " ", "and", " ", 
     "we", " ", "are", " ", "left", " ", "with", " ", "linear", " ", 
     "pricing"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Limit", "[", 
   RowBox[{"F1NE", ",", 
    RowBox[{"\[Mu]", "\[Rule]", "Infinity"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6658060900517416`*^9, 3.6658061190321875`*^9}, {
   3.666077753496785*^9, 3.666077756479083*^9}, {3.666077801675603*^9, 
   3.6660778046669016`*^9}, 3.6670309380780993`*^9, {3.6945017787114024`*^9, 
   3.6945017910962024`*^9}, {3.7155753080006332`*^9, 
   3.7155753080006332`*^9}, {3.7155755608244333`*^9, 
   3.7155755982880335`*^9}, {3.7618342693346043`*^9, 3.761834274647438*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.6675355797910104`*^9, {3.6945017661846027`*^9, 3.694501792063402*^9}, 
   3.694511681120257*^9, 3.694752101059987*^9, 3.6947759117743444`*^9, 
   3.6950103755606256`*^9, 3.6953572642477674`*^9, 3.6959603584450245`*^9, 
   3.6959772574641247`*^9, 3.697168790769413*^9, 3.69717582503746*^9, 
   3.69725797100795*^9, 3.708680117622286*^9, 3.715437291116936*^9, 
   3.7154379643796587`*^9, 3.7154381422627583`*^9, {3.7155755574080334`*^9, 
   3.7155755668012333`*^9}, 3.761834279622096*^9, 3.762067482249414*^9, 
   3.762067702114482*^9, 3.763116965170472*^9, 3.7631170378530793`*^9, 
   3.7631170734967475`*^9, 3.763120986890067*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "We", " ", "show", " ", "that", " ", "these", " ", "fixed", " ", "fees", 
    " ", "are", " ", "always", " ", "positive", " ", "and", " ", "we", " ", 
    "do", " ", "not", " ", "need", " ", "to", " ", "take", " ", "care", " ", 
    "of", " ", "corner", " ", 
    RowBox[{"solutions", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Reduce", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"F1NE", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"1", "\[GreaterEqual]", "\[Mu]", "\[GreaterEqual]", "0"}], ",", 
     RowBox[{"1", "\[GreaterEqual]", "\[Gamma]", "\[GreaterEqual]", "0"}], 
     ",", 
     RowBox[{"1", "\[GreaterEqual]", "c", "\[GreaterEqual]", "0"}]}], "}"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.6620360371990385`*^9, 3.6620360706870823`*^9}, {
   3.662036107302877*^9, 3.6620361390255527`*^9}, {3.6620361726616163`*^9, 
   3.66203622565407*^9}, {3.6658053366057515`*^9, 3.6658053799586153`*^9}, {
   3.66580612692233*^9, 3.665806129036746*^9}, {3.6658062601134453`*^9, 
   3.6658063309982214`*^9}, {3.6658096680089483`*^9, 3.665809683529315*^9}, 
   3.6670309380801*^9, {3.7155752215582333`*^9, 3.7155752215582333`*^9}, {
   3.7155753080006332`*^9, 3.7155753080006332`*^9}, {3.7155756088512335`*^9, 
   3.7155756134084334`*^9}, 3.761834283820942*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"0", "\[LessEqual]", "\[Mu]", "\[LessEqual]", "1"}], "&&", 
  RowBox[{"0", "\[LessEqual]", "\[Gamma]", "<", "1"}], "&&", 
  RowBox[{"0", "\[LessEqual]", "c", "\[LessEqual]", "1"}]}]], "Output",
 CellChangeTimes->{3.715575614157233*^9, 3.7618342846067944`*^9, 
  3.762067482290338*^9, 3.762067702133488*^9, 3.763116965217349*^9, 
  3.76311703787103*^9, 3.763117073533647*^9, 3.763120986915963*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Now", " ", "we", " ", "determine", " ", "the", " ", "Limit", " ", 
    "Pricing", " ", "strategy", " ", "and", " ", "region"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"q2NE", "/.", "pricesNE"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"tmpqlim", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"%", "\[Equal]", "0"}], ",", "c"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"clim", "=", 
     RowBox[{"tmpqlim", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
    "for", " ", "c", " ", "above", " ", "clim", " ", "the", " ", 
     "inefficient", " ", "firm", " ", "2", " ", "cannot", " ", "be", " ", 
     "active"}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.6618430600846224`*^9, 3.661843097508364*^9}, 
   3.6618440873070145`*^9, {3.662035811146142*^9, 3.6620358123029146`*^9}, 
   3.6659213451693716`*^9, 3.6670309380841002`*^9, {3.694501809459402*^9, 
   3.694501867755802*^9}, {3.7155756309936333`*^9, 3.7155756787530336`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"c", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", "+", "\[Gamma]"}], ")"}], " ", "\[Mu]"}]}], ")"}]}], 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", 
         SuperscriptBox["\[Gamma]", "2"]}], ")"}], " ", "\[Mu]"}]}]]}], "}"}],
   "}"}]], "Output",
 CellChangeTimes->{3.715575680032233*^9, 3.761834301931489*^9, 
  3.7620674823192596`*^9, 3.7620677021653447`*^9, 3.7631169652682114`*^9, 
  3.7631170378960266`*^9, 3.763117073567591*^9, 3.763120986943888*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "We", " ", "determine", " ", "the", " ", "limit", " ", "pricing", " ", 
     RowBox[{"strategy", ".", " ", "The"}], " ", "limit", " ", "pricing", " ",
      "strategy", " ", "for", " ", "the", " ", "inefficient", " ", "firm", 
     " ", "2", " ", "is", " ", "p2"}], "=", 
    RowBox[{
     RowBox[{"c", " ", "and", " ", "F2"}], "=", 
     RowBox[{
     "0.", " ", "That", " ", "for", " ", "firm", " ", "1", " ", "is", " ", 
      "determined", " ", "as", " ", 
      RowBox[{"follows", "."}]}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"p1Limit", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"0", "==", "q2NE"}], "/.", 
         RowBox[{"p2", "\[Rule]", "c"}]}], ",", "p1"}], "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "notice", " ", "that", " ", "since", " ", "the", " ", "x", " ", "enters",
       " ", "multiplicatively", " ", "in", " ", "q2d"}], ",", " ", 
     RowBox[{
     "this", " ", "limit", " ", "pricing", " ", "is", " ", "the", " ", "same",
       " ", "for", " ", "any", " ", 
      RowBox[{"x", "."}]}]}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.6610068539611044`*^9, 3.6610069698669972`*^9}, {
   3.6611658241742687`*^9, 3.661165851250283*^9}, 3.661843268010542*^9, {
   3.661844177653015*^9, 3.661844229980015*^9}, {3.6618444008190145`*^9, 
   3.6618444279060144`*^9}, {3.6658064381435843`*^9, 3.665806447916108*^9}, {
   3.6658066105370684`*^9, 3.6658066112365403`*^9}, {3.6658079040580206`*^9, 
   3.6658079238160925`*^9}, 3.665921350711926*^9, 3.6670309380861006`*^9, {
   3.6945018774824023`*^9, 3.6945019282330027`*^9}, {3.7155757031040335`*^9, 
   3.7155757223768334`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", "c", "+", "\[Gamma]"}], "\[Gamma]"]], "Output",
 CellChangeTimes->{{3.7155757164108334`*^9, 3.715575723047633*^9}, 
   3.7618343093366375`*^9, 3.7620674823341866`*^9, 3.762067702182336*^9, 
   3.763116965300147*^9, 3.7631170379129524`*^9, 3.7631170735855427`*^9, 
   3.763120986956854*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "associated", " ", "fixed", " ", "fee", " ", "is", " ", 
    "determined", " ", "as", " ", 
    RowBox[{"follows", "."}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"ProfitBE1", "/.", 
       RowBox[{"q1", "->", "q1e"}]}], "/.", 
      RowBox[{"p1", "\[Rule]", "p1Limit"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"F1Limit", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"v0", "==", "%"}], ",", "F1"}], "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.6658079855259743`*^9, 3.6658080290798345`*^9}, {
   3.6658097664627433`*^9, 3.6658097684901004`*^9}, 3.6659213583446894`*^9, 
   3.6670309380881004`*^9, {3.694501936267002*^9, 3.6945019661852026`*^9}, {
   3.7155758524562335`*^9, 3.7155758600452337`*^9}, {3.7618343808422832`*^9, 
   3.761834384392785*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "c"}], ")"}], "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Gamma]", "2"]}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox["\[Gamma]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Mu]"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.715575860671233*^9, 3.761834470156894*^9, 
  3.7620674824190025`*^9, 3.762067702229209*^9, 3.763116965362959*^9, 
  3.7631170379558415`*^9, 3.7631170736423573`*^9, 3.7631209870017333`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "associated", " ", "payoffs", " ", "are", " ", "as", " ", 
    RowBox[{"follows", "."}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"PROFITBLimit", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ProfitBE1", "/.", 
        RowBox[{"q1", "->", "q1e"}]}], "/.", 
       RowBox[{"p1", "\[Rule]", "p1Limit"}]}], "/.", 
      RowBox[{"F1", "->", "F1Limit"}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"PROFIT1Limit", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Profit1E", "/.", 
        RowBox[{"q1", "->", "q1e"}]}], "/.", 
       RowBox[{"p1", "\[Rule]", "p1Limit"}]}], "/.", 
      RowBox[{"F1", "->", "F1Limit"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.665806627274261*^9, 3.665806635071466*^9}, {
   3.6658080386855893`*^9, 3.6658080726653004`*^9}, 3.667030938089101*^9, {
   3.6945019834508023`*^9, 3.6945019969448023`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "c"}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{3.6675356176477957`*^9, 3.6945020002540026`*^9, 
  3.694511681354645*^9, 3.6947521012315865`*^9, 3.6947759120535307`*^9, 
  3.6950103756864257`*^9, 3.695357264388171*^9, 3.6959603585854244`*^9, 
  3.6959772576141243`*^9, 3.6971687909410124`*^9, 3.697175825164459*^9, 
  3.697257971210349*^9, 3.7086801181067114`*^9, 3.7154372914468145`*^9, 
  3.7154379646140223`*^9, 3.715438142488967*^9, 3.7155758821952333`*^9, 
  3.7618345368254776`*^9, 3.7620674824309344`*^9, 3.7620677022441373`*^9, 
  3.763116965389886*^9, 3.7631170379697676`*^9, 3.763117073663326*^9, 
  3.763120987015696*^9}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "c"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Gamma]"}], ")"}]}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Gamma]", "-", 
         RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}], "+", 
      RowBox[{"c", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SuperscriptBox["\[Gamma]", "2"], "+", 
         RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox["\[Gamma]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Mu]"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.6675356176477957`*^9, 3.6945020002540026`*^9, 
  3.694511681354645*^9, 3.6947521012315865`*^9, 3.6947759120535307`*^9, 
  3.6950103756864257`*^9, 3.695357264388171*^9, 3.6959603585854244`*^9, 
  3.6959772576141243`*^9, 3.6971687909410124`*^9, 3.697175825164459*^9, 
  3.697257971210349*^9, 3.7086801181067114`*^9, 3.7154372914468145`*^9, 
  3.7154379646140223`*^9, 3.715438142488967*^9, 3.7155758821952333`*^9, 
  3.7618345368254776`*^9, 3.7620674824309344`*^9, 3.7620677022441373`*^9, 
  3.763116965389886*^9, 3.7631170379697676`*^9, 3.763117073663326*^9, 
  3.7631209870466533`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "We", " ", "now", " ", "find", " ", "the", " ", "\"\<Drastic region\>\"", 
    " ", "in", " ", "which", " ", "also", " ", "without", " ", "exclusivity", 
    " ", "clause", " ", "the", " ", "dominant", " ", "can", " ", "price", " ",
     "at", " ", "the", " ", "monopoly", " ", "price"}], "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "First", " ", "we", " ", "need", " ", "to", " ", "find", " ", "the", " ", 
    "unconstrained", " ", 
    RowBox[{"monopolist", "'"}], "s", " ", "optimal", " ", "price"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"ProfitBE1", "-", "v0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"tmpF1m", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"%", "\[Equal]", "0"}], ",", "F1"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Profit1E", "/.", 
     RowBox[{"F1", "\[Rule]", 
      RowBox[{"tmpF1m", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"p1m", "=", 
    RowBox[{
     RowBox[{"FullSimplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"%", ",", "p1"}], "]"}], "\[Equal]", "0"}], ",", "p1"}], 
       "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"F1m", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"tmpF1m", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], "/.", 
      RowBox[{"p1", "\[Rule]", "p1m"}]}], "]"}]}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.6658100099457855`*^9, 3.665810026786628*^9}, {
   3.665810112591979*^9, 3.6658102199016743`*^9}, {3.665810470437052*^9, 
   3.6658105687894735`*^9}, {3.6658923219532013`*^9, 
   3.6658923418014717`*^9}, {3.665892896095666*^9, 3.6658929403109455`*^9}, {
   3.6658930734613533`*^9, 3.6658930814526834`*^9}, {3.6658935726598816`*^9, 
   3.665893584345684*^9}, 3.66589362310153*^9, 3.667030938090101*^9, {
   3.6945020089824023`*^9, 3.6945020188416023`*^9}, {3.694502068653202*^9, 
   3.6945020694020023`*^9}, 3.7155758976302333`*^9, {3.7155759656022334`*^9, 
   3.7155760500092335`*^9}, {3.761834633113744*^9, 3.761834649556821*^9}, {
   3.761834754013789*^9, 3.761834764883754*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"F1", "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c", "-", "p1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", "c", "+", "p1"}], ")"}]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "\[Mu]"}], ")"}]}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.715576026192233*^9, 3.7155760528052335`*^9}, 
   3.7618346568552904`*^9, 3.761834754394724*^9, 3.761834878198677*^9, 
   3.7620674825336533`*^9, 3.762067615553951*^9, 3.7620677023249435`*^9, 
   3.763116965463689*^9, 3.763117038021643*^9, 3.7631170737281284`*^9, 
   3.7631209870705633`*^9}],

Cell[BoxData[
 FractionBox["\[Mu]", 
  RowBox[{"1", "+", 
   RowBox[{"2", " ", "\[Mu]"}]}]]], "Output",
 CellChangeTimes->{{3.715576026192233*^9, 3.7155760528052335`*^9}, 
   3.7618346568552904`*^9, 3.761834754394724*^9, 3.761834878198677*^9, 
   3.7620674825336533`*^9, 3.762067615553951*^9, 3.7620677023249435`*^9, 
   3.763116965463689*^9, 3.763117038021643*^9, 3.7631170737281284`*^9, 
   3.763120987072546*^9}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"c", "-", 
      FractionBox["\[Mu]", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Mu]"}]}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", "c", "+", 
      FractionBox["\[Mu]", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Mu]"}]}]]}], ")"}]}], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Mu]"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{{3.715576026192233*^9, 3.7155760528052335`*^9}, 
   3.7618346568552904`*^9, 3.761834754394724*^9, 3.761834878198677*^9, 
   3.7620674825336533`*^9, 3.762067615553951*^9, 3.7620677023249435`*^9, 
   3.763116965463689*^9, 3.763117038021643*^9, 3.7631170737281284`*^9, 
   3.7631209870964813`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "And", " ", "the", " ", "associated", " ", "payoffs", " ", "are", " ", 
    "as", " ", 
    RowBox[{"follows", "."}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"PROFIT1Em", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"Profit1E", "/.", 
       RowBox[{"p1", "\[Rule]", "p1m"}]}], "/.", 
      RowBox[{"F1", "\[Rule]", "F1m"}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"PROFITBE1m", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"ProfitBE1", "/.", 
       RowBox[{"p1", "\[Rule]", "p1m"}]}], "/.", 
      RowBox[{"F1", "\[Rule]", "F1m"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.6945020727248025`*^9, 3.6945020881880026`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[Mu]", "2"], "-", 
   RowBox[{
    SuperscriptBox["c", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}], "+", 
   RowBox[{"c", " ", 
    RowBox[{"(", 
     RowBox[{"2", "+", 
      RowBox[{"4", " ", "\[Mu]"}]}], ")"}]}]}], 
  RowBox[{"2", "+", 
   RowBox[{"6", " ", "\[Mu]"}], "+", 
   RowBox[{"4", " ", 
    SuperscriptBox["\[Mu]", "2"]}]}]]], "Output",
 CellChangeTimes->{3.7155760751322336`*^9, 3.761834939136526*^9, 
  3.762067482698254*^9, 3.7620677023857574`*^9, 3.7631169655354967`*^9, 
  3.76311703807452*^9, 3.763117073791983*^9, 3.7631209871244073`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "c"}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{3.7155760751322336`*^9, 3.761834939136526*^9, 
  3.762067482698254*^9, 3.7620677023857574`*^9, 3.7631169655354967`*^9, 
  3.76311703807452*^9, 3.763117073791983*^9, 3.7631209871264*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Now", ",", " ", 
    RowBox[{
     RowBox[{
     "we", " ", "determine", " ", "the", " ", "minimum", " ", "c", " ", 
      "that", " ", "allows", " ", "the", " ", "dominant", " ", "firm", " ", 
      "to", " ", "give"}], "-", 
     RowBox[{
     "up", " ", "with", " ", "limit", " ", "pricing", " ", "and", " ", 
      "directly", " ", "price", " ", "as", " ", "a", " ", 
      RowBox[{"monopolist", "."}]}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"p1m", "\[Equal]", "p1Limit"}], ",", "c"}], "]"}], "]"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"cdrast", "=", 
    RowBox[{"%", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.6658102964278708`*^9, 3.6658103118005257`*^9}, {
   3.665810582117383*^9, 3.6658105927354794`*^9}, {3.665893240899848*^9, 
   3.6658932420736275`*^9}, {3.665921419147769*^9, 3.6659214212129755`*^9}, 
   3.6670309380971017`*^9, {3.6945021000130024`*^9, 3.6945021443020024`*^9}, {
   3.6945021767506027`*^9, 3.694502179901802*^9}, {3.7155753080318336`*^9, 
   3.7155753080318336`*^9}, {3.715576090447233*^9, 3.7155760945092335`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"1", "+", 
   RowBox[{"2", " ", "\[Mu]"}], "-", 
   RowBox[{"\[Gamma]", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Mu]"}], ")"}]}]}], 
  RowBox[{"1", "+", 
   RowBox[{"2", " ", "\[Mu]"}]}]]], "Output",
 CellChangeTimes->{3.7155761022652335`*^9, 3.7618349496028943`*^9, 
  3.7620674827181926`*^9, 3.762067702412719*^9, 3.7631169655743933`*^9, 
  3.7631170380934353`*^9, 3.763117073818885*^9, 3.7631209871443524`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "For", " ", "future", " ", "reference", " ", "we", " ", "also", " ", 
    "define", " ", "a", " ", "Positive", " ", "Primary", " ", "Otuput", " ", 
    RowBox[{"(", "PPO", ")"}], " ", "boundary"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"u", "-", 
            RowBox[{"c", " ", "q2"}]}], ",", "q1"}], "]"}], "\[Equal]", "0"}],
         ",", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"u", "-", 
            RowBox[{"c", " ", "q2"}]}], ",", "q2"}], "]"}], "\[Equal]", 
         "0"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"q1", ",", "q2"}], "}"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"%", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2", ",", "2"}], "]"}], "]"}], "\[Equal]", "0"}], 
      ",", "c"}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"cPPO", "=", 
    RowBox[{"%", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.661166564081337*^9, 3.6611665731403017`*^9}, {
   3.665810616504362*^9, 3.665810623763214*^9}, {3.6659214274756017`*^9, 
   3.6659214287887325`*^9}, 3.6670309380981016`*^9, {3.6945022664326024`*^9, 
   3.6945022673530025`*^9}, {3.715576128440233*^9, 3.715576142454233*^9}, {
   3.761834957939642*^9, 3.7618349795548425`*^9}}],

Cell[BoxData[
 RowBox[{"1", "-", "\[Gamma]"}]], "Output",
 CellChangeTimes->{
  3.7155761449132338`*^9, {3.761834969281272*^9, 3.761834980595018*^9}, 
   3.76206748273415*^9, 3.762067702433642*^9, 3.7631169656202707`*^9, 
   3.763117038105404*^9, 3.7631170738358397`*^9, 3.763120987158315*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "We", " ", "now", " ", "plot", " ", "these", " ", "threshold", " ", "for",
      " ", "any", " ", "Lambda"}], ",", " ", 
    RowBox[{"c", " ", "and", " ", "gamma"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"cPPO", ",", "clim", ",", "cdrast"}], "}"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotStyle", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "Black", "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Red", ",", "Thick"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Red", ",", "Thick"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Mu]", ",", "2"}], "}"}], ",", "0", ",", "10"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.6618433033068075`*^9, 3.661843359613968*^9}, {
   3.6620363801279526`*^9, 3.662036398281027*^9}, {3.6620364291205506`*^9, 
   3.662036429873051*^9}, {3.6620377070894623`*^9, 3.662037744783549*^9}, 
   3.665808233719198*^9, {3.6658083117516317`*^9, 3.665808356681147*^9}, {
   3.665810433366274*^9, 3.665810447038407*^9}, 3.6658932477213993`*^9, 
   3.6670309380991015`*^9, {3.6945022827894025`*^9, 3.6945022987210026`*^9}, 
   3.7155752216362333`*^9, 3.7155753080474334`*^9, {3.7155761642482333`*^9, 
   3.7155761766472335`*^9}, {3.715576224112233*^9, 3.7155762388072333`*^9}, {
   3.7618350017046127`*^9, 3.7618350545438986`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Mu]$$ = 2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Mu]$$], 2}, 0, 10}}, Typeset`size$$ = {
    450., {146., 153.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Mu]$8534$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Mu]$$ = 2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Mu]$$, $CellContext`\[Mu]$8534$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{1 - $CellContext`\[Gamma], (-1 + $CellContext`\[Gamma]) (
          1 + (2 + $CellContext`\[Gamma]) $CellContext`\[Mu]$$)/(-1 + (-2 + \
$CellContext`\[Gamma]^2) $CellContext`\[Mu]$$), (1 + 
           2 $CellContext`\[Mu]$$)^(-1) (1 + 
          2 $CellContext`\[Mu]$$ - $CellContext`\[Gamma] (
           1 + $CellContext`\[Mu]$$))}, {$CellContext`\[Gamma], 0, 1}, 
        PlotStyle -> {{Black}, {Red, Thick}, {Red, Thick}}, 
        PlotRange -> {0, 1}], 
      "Specifications" :> {{{$CellContext`\[Mu]$$, 2}, 0, 10}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {202., 209.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.6675356690729375`*^9, 3.6945116815734067`*^9, 3.6947521019803867`*^9, 
   3.6947759414582314`*^9, 3.6950103773580256`*^9, 3.695357265318596*^9, 
   3.6959603600830245`*^9, 3.6959772585331244`*^9, 3.697168793639795*^9, 
   3.6971758253474593`*^9, 3.6972579722891417`*^9, 3.7086801187005625`*^9, 
   3.7154372923052125`*^9, 3.715437964864051*^9, 3.71543814279555*^9, 
   3.7155761804672337`*^9, {3.7155762259742336`*^9, 3.7155762395002337`*^9}, 
   3.761835024745352*^9, 3.7618350553616915`*^9, 3.7620674827530994`*^9, 
   3.7620677024546113`*^9, 3.7631169656841345`*^9, 3.7631170381193666`*^9, 
   3.7631170738707466`*^9, 3.763120987174272*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Analysis: Exclusive contracts allowed\
\>", "Section",
 CellChangeTimes->{{3.660980757691678*^9, 3.660980759020569*^9}, {
  3.66098100496745*^9, 3.660981008049509*^9}, {3.661849700749787*^9, 
  3.661849703001012*^9}, {3.662097642565343*^9, 3.662097646777343*^9}, {
  3.665986378475314*^9, 3.665986379943461*^9}, {3.6945032842646027`*^9, 
  3.694503303333802*^9}, {3.7155762589702334`*^9, 3.715576275546233*^9}, {
  3.715576325435233*^9, 3.7155763266982336`*^9}, {3.7155802595072336`*^9, 
  3.715580274355233*^9}, {3.76183518217577*^9, 3.7618351872721224`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "EQUILIBRIA", " ", "WITH", " ", "EXCLUSIVE", " ", "REPRESENTATION"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"As", " ", "discussed", " ", "in", " ", "the", " ", "text"}], ",",
     " ", 
    RowBox[{"with", " ", "exclusive", " ", "contracts", " ", "admissible"}], 
    ",", " ", 
    RowBox[{
    "any", " ", "equilibrium", " ", "involves", " ", "exculisvity", " ", 
     "and", " ", "contemplates", " ", "the", " ", "buyer", " ", "purchasing", 
     " ", "from", " ", "the", " ", "dominant", " ", "firm", " ", "1"}], ",", 
    " ", 
    RowBox[{
    "at", " ", "the", " ", "following", " ", "prices", " ", "and", " ", 
     "associated", " ", "payoffs", " ", "and", " ", "firm", " ", "2", " ", 
     "offering", " ", "the", " ", "following", " ", "exclusive", " ", 
     RowBox[{"contract", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"p2Eequ", "=", "c"}], ";", " ", 
    RowBox[{"F2Eequ", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
      RowBox[{"if", " ", "c"}], "\[GreaterEqual]", "p1m"}], "=", 
     RowBox[{
      FractionBox["\[Mu]", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Mu]"}]}]], " ", "then"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p1Eequ", "=", "p1m"}], ";", " ", 
    RowBox[{"F1Eequ", "=", "F1m"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"PROFIT1Eequ", "=", "PROFIT1Em"}], "\[IndentingNewLine]", 
   RowBox[{"PROFITBEequ", "=", "PROFITBE1m"}]}]}]], "Input",
 CellChangeTimes->{{3.6618423547700977`*^9, 3.661842402164837*^9}, {
   3.661842693784996*^9, 3.6618427337959967`*^9}, 3.6618427666382804`*^9, {
   3.6620381379328337`*^9, 3.662038276523689*^9}, 3.662038391813251*^9, {
   3.6620391322414565`*^9, 3.6620391935505877`*^9}, {3.662040390440967*^9, 
   3.662040415806571*^9}, {3.6620404782750435`*^9, 3.6620404816592965`*^9}, {
   3.6620405558322625`*^9, 3.6620405593496094`*^9}, 3.662097377052343*^9, {
   3.665893096333604*^9, 3.665893202001292*^9}, {3.6658935941091976`*^9, 
   3.665893615549497*^9}, {3.667031878723155*^9, 3.66703189758004*^9}, {
   3.6945033070954027`*^9, 3.6945038254914026`*^9}, {3.6945039378094025`*^9, 
   3.6945039505284023`*^9}, {3.6945039845258026`*^9, 3.694503985071802*^9}, {
   3.6945040383634024`*^9, 3.6945040426534023`*^9}, {3.6945042502510023`*^9, 
   3.6945042620602026`*^9}, {3.6945117169787583`*^9, 3.694511717228769*^9}, {
   3.7155753080474334`*^9, 3.7155753080474334`*^9}, 3.7155763693512335`*^9, {
   3.7155802858312335`*^9, 3.7155802963022337`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[Mu]", "2"], "-", 
   RowBox[{
    SuperscriptBox["c", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}], "+", 
   RowBox[{"c", " ", 
    RowBox[{"(", 
     RowBox[{"2", "+", 
      RowBox[{"4", " ", "\[Mu]"}]}], ")"}]}]}], 
  RowBox[{"2", "+", 
   RowBox[{"6", " ", "\[Mu]"}], "+", 
   RowBox[{"4", " ", 
    SuperscriptBox["\[Mu]", "2"]}]}]]], "Output",
 CellChangeTimes->{3.7155763790382338`*^9, 3.7618351998196077`*^9, 
  3.7620674827710304`*^9, 3.762067702508428*^9, 3.7631169657389555`*^9, 
  3.763117038128377*^9, 3.763117076499715*^9, 3.763120987202237*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "c"}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{3.7155763790382338`*^9, 3.7618351998196077`*^9, 
  3.7620674827710304`*^9, 3.762067702508428*^9, 3.7631169657389555`*^9, 
  3.763117038128377*^9, 3.763117076499715*^9, 3.7631209872031965`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"if", " ", "instead", " ", "c"}], "<", "p1m"}], "=", 
    RowBox[{
     FractionBox["\[Mu]", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Mu]"}]}]], " ", "then", " ", "we", " ", "are", 
     " ", "in", " ", "a", " ", "corner", " ", "solution", " ", "with"}]}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"p1Eequcorn", "=", "c"}], ";", " ", 
    RowBox[{"F1Eequbcorn", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q1E", "/.", 
     RowBox[{"p1", "->", "p1Eequcorn"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"PROFIT1Eequcorn", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"%", "*", "p1Eequcorn"}], " ", "]"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ue1", "/.", 
      RowBox[{"q1", "->", "q1E"}]}], "/.", 
     RowBox[{"p1", "->", "p1Eequcorn"}]}], ";"}], "\[IndentingNewLine]", " ", 
   RowBox[{"PROFITBEequcorn", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"%", "-", 
      RowBox[{"%%%", "p1Eequcorn"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.694503946878002*^9, 3.6945039527904024`*^9}, {
   3.694503989208802*^9, 3.6945040779214025`*^9}, {3.6945138141123867`*^9, 
   3.694513820964965*^9}, {3.715575308063033*^9, 3.715575308063033*^9}, {
   3.7155763989602337`*^9, 3.715576425039233*^9}, 3.7618352158457317`*^9, {
   3.7618353290735292`*^9, 3.761835335880325*^9}, 3.7618354045603166`*^9, {
   3.7631171569296*^9, 3.763117160539982*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "c"}], ")"}]}], " ", "c"}]], "Output",
 CellChangeTimes->{
  3.6945039572696023`*^9, 3.6945040785610027`*^9, 3.694511729433683*^9, 
   3.694513831080459*^9, 3.6947521182787867`*^9, 3.6947760439035463`*^9, 
   3.695010377451626*^9, 3.6953572654433985`*^9, 3.6959603617386246`*^9, 
   3.695977258583124*^9, 3.697168793702194*^9, 3.697175825376459*^9, 
   3.6972579723515415`*^9, 3.7086801188255386`*^9, 3.7154372924715824`*^9, 
   3.715437964989067*^9, 3.715438142967395*^9, 3.715576427791233*^9, {
   3.7618352059631405`*^9, 3.761835222464098*^9}, 3.76183533768047*^9, 
   3.7618354074875154`*^9, 3.7620674827879725`*^9, 3.7620677025234222`*^9, 
   3.7631169657758536`*^9, 3.7631170381443243`*^9, 3.7631170765815077`*^9, 
   3.7631171609109793`*^9, 3.7631209872151976`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "c"}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{
  3.6945039572696023`*^9, 3.6945040785610027`*^9, 3.694511729433683*^9, 
   3.694513831080459*^9, 3.6947521182787867`*^9, 3.6947760439035463`*^9, 
   3.695010377451626*^9, 3.6953572654433985`*^9, 3.6959603617386246`*^9, 
   3.695977258583124*^9, 3.697168793702194*^9, 3.697175825376459*^9, 
   3.6972579723515415`*^9, 3.7086801188255386`*^9, 3.7154372924715824`*^9, 
   3.715437964989067*^9, 3.715438142967395*^9, 3.715576427791233*^9, {
   3.7618352059631405`*^9, 3.761835222464098*^9}, 3.76183533768047*^9, 
   3.7618354074875154`*^9, 3.7620674827879725`*^9, 3.7620677025234222`*^9, 
   3.7631169657758536`*^9, 3.7631170381443243`*^9, 3.7631170765815077`*^9, 
   3.7631171609109793`*^9, 3.7631209872181687`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "threshold", " ", "for", " ", "these", " ", "two", " ", 
    "cases", " ", "is"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"cEcorner", "=", "p1m"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.6945040858044024`*^9, 3.6945041116186028`*^9}, 
   3.7155764487482333`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Effects of Exclusive contracts and Figure 1\
\>", "Section",
 CellChangeTimes->{{3.660980757691678*^9, 3.660980759020569*^9}, {
  3.66098100496745*^9, 3.660981008049509*^9}, {3.661849700749787*^9, 
  3.661849703001012*^9}, {3.662097642565343*^9, 3.662097646777343*^9}, {
  3.665986378475314*^9, 3.665986379943461*^9}, {3.6945032842646027`*^9, 
  3.694503303333802*^9}, {3.7155762589702334`*^9, 3.715576275546233*^9}, {
  3.715576325435233*^9, 3.7155763266982336`*^9}, {3.7155802595072336`*^9, 
  3.715580274355233*^9}, {3.761835686451558*^9, 3.761835694498081*^9}, {
  3.761836853455763*^9, 3.7618368555002956`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "We", " ", "compare", " ", "the", " ", "common", " ", "representation", 
    " ", "equilibrium", " ", "when", " ", "excluive", " ", "contracts", " ", 
    "are", " ", "forbidden", " ", "with", " ", "the", " ", "equilibrium", " ",
     "with", " ", 
    RowBox[{"exclusivity", "."}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Profitability", " ", "of", " ", "Exclusivity", " ", "for", " ", "the", 
     " ", "dominant", " ", "Firm", " ", "1"}], ":", " ", 
    RowBox[{
     RowBox[{
     "First", " ", "notice", " ", "that", " ", "when", " ", "with", " ", 
      "Non"}], "-", 
     RowBox[{
     "Exclusivity", " ", "the", " ", "limit", " ", "pricing", " ", "emerges", 
      " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"i", ".", "e", ".", " ", "above"}], " ", "the", " ", "red", 
        " ", "dashed", " ", "curved", " ", "line", " ", "in", " ", "the", " ",
         "figure", " ", "below"}], ")"}], " ", "then", " ", "Exclusivity", 
      " ", "clearly", " ", "dominates", " ", "for", " ", "firm", " ", 
      "1."}]}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{
     "The", " ", "next", " ", "comparison", " ", "is", " ", "the", " ", "one",
       " ", "relevant", " ", "for", " ", "c"}], ">", "p1m"}], ",", " ", 
    RowBox[{
    "where", " ", "p1m", " ", "is", " ", "the", " ", "blue", " ", "line", " ",
      "in", " ", 
     RowBox[{"figure", ".", " ", "Hence"}]}], ",", " ", 
    RowBox[{
     RowBox[{
     "between", " ", "the", " ", "green", " ", "lines", " ", "and", " ", 
      "above", " ", "the", " ", "blue", " ", "line", " ", "Exclusivity", " ", 
      "dominates", " ", "Non"}], "-", "Exclusivity"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"tmpprofNE", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"PROFIT1NE", "-", "PROFIT1Eequ"}], "==", "0"}], ",", "c"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "The", " ", "next", " ", "comparison", " ", "is", " ", "the", " ", "one",
       " ", "relevant", " ", "below", " ", "the", " ", "blue", " ", "line", 
      " ", 
      RowBox[{"i", ".", "e", ".", " ", "for"}], " ", "c"}], "<", 
     RowBox[{"p1m", ":", " ", 
      RowBox[{
       RowBox[{
       "between", " ", "the", " ", "black", " ", "lines", " ", "Exclusivity", 
        " ", "dominates", " ", "Non"}], "-", "Exclusivity"}]}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tmpprofNEcorn", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"PROFIT1NE", "-", "PROFIT1Eequcorn"}], "==", "0"}], ",", 
       "c"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Plotting", " ", "all", " ", "boundaries"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"p1m", ",", "cdrast", ",", "clim", ",", 
      RowBox[{"tmpprofNE", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
      RowBox[{"tmpprofNE", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
      RowBox[{"tmpprofNEcorn", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}], ",", 
      RowBox[{"tmpprofNEcorn", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}]}], "}"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{"%", ",", 
       RowBox[{"{", 
        RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"{", 
           RowBox[{"Red", ",", "Thick"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Red", ",", "Thick"}], "}"}], ",", "Green", ",", "Green", 
          ",", "Black", ",", "Black"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Mu]", ",", "2"}], "}"}], ",", "0", ",", "10"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.694513394048639*^9, 3.69451351125737*^9}, {
   3.6945135602390842`*^9, 3.6945135914592075`*^9}, {3.6945136285974693`*^9, 
   3.694513680578264*^9}, {3.6945138631801376`*^9, 3.6945138786612887`*^9}, {
   3.6945139557029743`*^9, 3.6945139561717496`*^9}, {3.6945144030649347`*^9, 
   3.694514404221354*^9}, {3.694514541938816*^9, 3.6945145423450875`*^9}, {
   3.694514573249366*^9, 3.6945145741869164`*^9}, {3.694514604542452*^9, 
   3.6945146693530817`*^9}, {3.6945147949323425`*^9, 3.694514838650522*^9}, {
   3.6945149418962927`*^9, 3.6945149473866353`*^9}, {3.694514983315209*^9, 
   3.6945150981673155`*^9}, {3.694515143140435*^9, 3.694515206134842*^9}, {
   3.6945152589430647`*^9, 3.694515583918955*^9}, {3.6945158663795805`*^9, 
   3.6945158701707687`*^9}, {3.694516447013389*^9, 3.694516483822488*^9}, {
   3.694517917878482*^9, 3.6945179218669224`*^9}, {3.695965373361224*^9, 
   3.6959654574240246`*^9}, 3.7155752217142334`*^9, 3.7155753080786333`*^9, {
   3.7155765651362333`*^9, 3.715576566263233*^9}, {3.7155766873082333`*^9, 
   3.715576799921233*^9}, {3.76183573487079*^9, 3.7618357395444136`*^9}, {
   3.761835781632733*^9, 3.761835786428872*^9}, {3.7631171009692698`*^9, 
   3.763117105871166*^9}, {3.7631171699846835`*^9, 3.763117171931478*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Mu]$$ = 2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Mu]$$], 2}, 0, 10}}, Typeset`size$$ = {
    450., {146., 153.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Mu]$8570$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Mu]$$ = 2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Mu]$$, $CellContext`\[Mu]$8570$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{$CellContext`\[Mu]$$/(1 + 
         2 $CellContext`\[Mu]$$), (1 + 2 $CellContext`\[Mu]$$)^(-1) (1 + 
          2 $CellContext`\[Mu]$$ - $CellContext`\[Gamma] (
           1 + $CellContext`\[Mu]$$)), (-1 + $CellContext`\[Gamma]) ((
           1 + (2 + $CellContext`\[Gamma]) $CellContext`\[Mu]$$)/(-1 + (-2 + \
$CellContext`\[Gamma]^2) $CellContext`\[Mu]$$)), (1 + 
           2 $CellContext`\[Mu]$$ + $CellContext`\[Gamma]^2 \
$CellContext`\[Mu]$$^2)^(-1) (1 - $CellContext`\[Gamma] + 
          2 $CellContext`\[Mu]$$ - (
           2 $CellContext`\[Gamma]) $CellContext`\[Mu]$$ - $CellContext`\
\[Gamma] $CellContext`\[Mu]$$^2 + $CellContext`\[Gamma]^2 \
$CellContext`\[Mu]$$^2 - ($CellContext`\[Gamma]^2 $CellContext`\[Mu]$$^2 - \
$CellContext`\[Gamma]^4 $CellContext`\[Mu]$$^2 + (
             2 $CellContext`\[Gamma]^2) $CellContext`\[Mu]$$^3 - (
            2 $CellContext`\[Gamma]^4) $CellContext`\[Mu]$$^3 + $CellContext`\
\[Gamma]^2 $CellContext`\[Mu]$$^4 - $CellContext`\[Gamma]^4 \
$CellContext`\[Mu]$$^4)^
          Rational[1, 2]), (1 + 
           2 $CellContext`\[Mu]$$ + $CellContext`\[Gamma]^2 \
$CellContext`\[Mu]$$^2)^(-1) (1 - $CellContext`\[Gamma] + 
          2 $CellContext`\[Mu]$$ - (
           2 $CellContext`\[Gamma]) $CellContext`\[Mu]$$ - $CellContext`\
\[Gamma] $CellContext`\[Mu]$$^2 + $CellContext`\[Gamma]^2 \
$CellContext`\[Mu]$$^2 + ($CellContext`\[Gamma]^2 $CellContext`\[Mu]$$^2 - \
$CellContext`\[Gamma]^4 $CellContext`\[Mu]$$^2 + (
              2 $CellContext`\[Gamma]^2) $CellContext`\[Mu]$$^3 - (
             2 $CellContext`\[Gamma]^4) $CellContext`\[Mu]$$^3 + \
$CellContext`\[Gamma]^2 $CellContext`\[Mu]$$^4 - $CellContext`\[Gamma]^4 \
$CellContext`\[Mu]$$^4)^Rational[1, 2]), (
          Rational[1, 2]/(-2 + $CellContext`\[Gamma]^2 - 
          4 $CellContext`\[Mu]$$ + (
            3 $CellContext`\[Gamma]^2) $CellContext`\[Mu]$$)) (-2 + 
          2 $CellContext`\[Gamma] - 
          4 $CellContext`\[Mu]$$ + (
            2 $CellContext`\[Gamma]) $CellContext`\[Mu]$$ + (
            2 $CellContext`\[Gamma]^2) $CellContext`\[Mu]$$ - ((2 - 
             2 $CellContext`\[Gamma] + 
             4 $CellContext`\[Mu]$$ - (
              2 $CellContext`\[Gamma]) $CellContext`\[Mu]$$ - (
              2 $CellContext`\[Gamma]^2) $CellContext`\[Mu]$$)^2 - (
            4 (-1 + 2 $CellContext`\[Gamma] - $CellContext`\[Gamma]^2 - \
$CellContext`\[Mu]$$ + (
               2 $CellContext`\[Gamma]) $CellContext`\[Mu]$$ - $CellContext`\
\[Gamma]^2 $CellContext`\[Mu]$$)) (-2 + $CellContext`\[Gamma]^2 - 
            4 $CellContext`\[Mu]$$ + (
              3 $CellContext`\[Gamma]^2) $CellContext`\[Mu]$$))^
          Rational[1, 2]), (Rational[1, 2]/(-2 + $CellContext`\[Gamma]^2 - 
          4 $CellContext`\[Mu]$$ + (
            3 $CellContext`\[Gamma]^2) $CellContext`\[Mu]$$)) (-2 + 
          2 $CellContext`\[Gamma] - 
          4 $CellContext`\[Mu]$$ + (
            2 $CellContext`\[Gamma]) $CellContext`\[Mu]$$ + (
            2 $CellContext`\[Gamma]^2) $CellContext`\[Mu]$$ + ((2 - 
              2 $CellContext`\[Gamma] + 
              4 $CellContext`\[Mu]$$ - (
               2 $CellContext`\[Gamma]) $CellContext`\[Mu]$$ - (
               2 $CellContext`\[Gamma]^2) $CellContext`\[Mu]$$)^2 - (
             4 (-1 + 2 $CellContext`\[Gamma] - $CellContext`\[Gamma]^2 - \
$CellContext`\[Mu]$$ + (
                2 $CellContext`\[Gamma]) $CellContext`\[Mu]$$ - $CellContext`\
\[Gamma]^2 $CellContext`\[Mu]$$)) (-2 + $CellContext`\[Gamma]^2 - 
             4 $CellContext`\[Mu]$$ + (
               3 $CellContext`\[Gamma]^2) $CellContext`\[Mu]$$))^
           Rational[1, 2])}, {$CellContext`\[Gamma], 0, 1}, 
        PlotRange -> {0, 1}, 
        PlotStyle -> {
         Blue, {Red, Thick}, {Red, Thick}, Green, Green, Black, Black}], 
      "Specifications" :> {{{$CellContext`\[Mu]$$, 2}, 0, 10}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {202., 209.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.694513684835427*^9, {3.694513870549755*^9, 3.6945138837296157`*^9}, 
   3.694513961125513*^9, 3.694514409249094*^9, 3.694514580373291*^9, {
   3.694514641472294*^9, 3.694514670368762*^9}, 3.694514844808152*^9, 
   3.694514953172954*^9, 3.69451502071692*^9, {3.694515051175653*^9, 
   3.6945150687436132`*^9}, 3.694515107506527*^9, 3.6945152173449154`*^9, 
   3.6945155943425493`*^9, 3.694517909518482*^9, 3.694752125095987*^9, 
   3.6947760446450415`*^9, 3.6947864588485813`*^9, 3.6950103779976254`*^9, 
   3.695357266012615*^9, 3.695960362284624*^9, 3.695965591227024*^9, 
   3.6959754755167246`*^9, 3.6959772591581244`*^9, 3.697168794248191*^9, 
   3.6971758259624577`*^9, 3.6972579728725386`*^9, 3.708680120278867*^9, 
   3.7154372934732504`*^9, 3.7154379657704277`*^9, 3.715438143789511*^9, {
   3.7155767561622334`*^9, 3.7155768012692337`*^9}, {3.761835769461282*^9, 
   3.7618357872337513`*^9}, 3.7620674828468733`*^9, 3.762067702582265*^9, 
   3.7631169658636184`*^9, 3.7631170382091255`*^9, {3.7631171011996555`*^9, 
   3.7631171062421684`*^9}, 3.7631171655345893`*^9, 3.7631209872730083`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Hence", " ", "we", " ", "define", " ", "the", " ", "relevant", " ", 
   "boundaries"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7155768352782335`*^9, 3.7155768437082334`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"profitability1E", "=", 
   RowBox[{"tmpprofNE", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"profitability1Ecorn", "=", 
   RowBox[{"tmpprofNEcorn", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.715576826473233*^9, 3.715576877157233*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Summarizing", " ", "the", " ", "effect", " ", "of", " ", "exclusivity", 
    " ", "as", " ", "in", " ", "the", " ", "paper", " ", 
    RowBox[{"(", 
     RowBox[{"figure", " ", "1"}], ")"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"vertline", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "p1Eequ"}], "}"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"cdrast", ",", 
      RowBox[{"Max", "[", 
       RowBox[{
        RowBox[{"Re", "[", "profitability1E", "]"}], ",", 
        RowBox[{"Re", "[", "profitability1Ecorn", "]"}]}], "]"}]}], "}"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"Quiet", "[", 
        RowBox[{"Plot", "[", 
         RowBox[{"%", ",", 
          RowBox[{"{", 
           RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
          RowBox[{"PlotRange", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}]}], ",", 
          RowBox[{"PlotStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"Black", ",", "Thick"}], "}"}], ",", 
             RowBox[{"{", "Black", "}"}]}], "}"}]}], ",", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"Filling", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"2", "->", "Bottom"}], "}"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"FillingStyle", "\[Rule]", 
           RowBox[{"{", "LightGray", "}"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"AxesLabel", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"\"\<\[Gamma]\>\"", ",", "\"\<c\>\""}], "}"}]}], ",", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"PlotLegends", "\[Rule]", 
           RowBox[{"Placed", "[", 
            RowBox[{
             RowBox[{"LineLegend", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                "\"\<\!\(\*SubscriptBox[\(c\), \(DRAS\)]\)(\[Mu])\>\"", ",", 
                 "\"\<\!\(\*SubscriptBox[\(c\), \(PROF\)]\)(\[Mu])\>\""}], 
                "}"}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"FontFamily", "\[Rule]", "\"\<Courier\>\""}], 
                 "}"}]}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"0.75", ",", "0.8"}], "}"}]}], "]"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Ticks", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], 
         "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Graphics", "[", 
        RowBox[{"{", 
         RowBox[{"Line", "[", "%%", "]"}], "}"}], "]"}]}], 
      "\[IndentingNewLine]", "]"}], ",", 
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Mu]", ",", "6"}], "}"}], ",", "0.01", ",", "15"}], "}"}]}],
     "]"}]}]}]], "Input",
 CellChangeTimes->{{3.6945156372246504`*^9, 3.6945158474739866`*^9}, {
   3.6959654962770243`*^9, 3.6959656449304247`*^9}, {3.6959657152128243`*^9, 
   3.695965732981224*^9}, {3.6959754892119246`*^9, 3.6959755376855245`*^9}, {
   3.7154380226512413`*^9, 3.7154380231825943`*^9}, 3.715575221761033*^9, 
   3.7155753080786333`*^9, {3.715576883565233*^9, 3.715576920671233*^9}, {
   3.7155769554222336`*^9, 3.7155769599742336`*^9}, {3.7155770634602337`*^9, 
   3.7155770655572333`*^9}, {3.7155771116802335`*^9, 
   3.7155771135512333`*^9}, {3.7155772040482335`*^9, 
   3.7155774632642336`*^9}, {3.7155775291692333`*^9, 
   3.7155775812122335`*^9}, {3.7155776233452334`*^9, 
   3.7155776459452333`*^9}, {3.7155778275922337`*^9, 
   3.7155778789292336`*^9}, {3.7155780006952333`*^9, 
   3.7155780369222336`*^9}, {3.7155783238402333`*^9, 3.715578325704233*^9}, {
   3.7155803694242334`*^9, 3.7155803747102337`*^9}, {3.7155806265812335`*^9, 
   3.7155806385552335`*^9}, {3.715584836612233*^9, 3.7155848375162334`*^9}, {
   3.761836441228179*^9, 3.761836450869453*^9}, {3.7620677485533648`*^9, 
   3.7620677625738473`*^9}, {3.7631172282717905`*^9, 3.763117229405758*^9}, {
   3.7631172980491667`*^9, 3.763117298763256*^9}, 3.7631173625845623`*^9, {
   3.7631174451497355`*^9, 3.7631175536096506`*^9}, {3.763117807888564*^9, 
   3.763117837009678*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[Mu]$$ = 6, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Mu]$$], 6}, 0.01, 15}}, Typeset`size$$ = {
    450., {150., 158.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Mu]$8607$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[Mu]$$ = 6}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[Mu]$$, $CellContext`\[Mu]$8607$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        Quiet[
         Plot[{(1 + 2 $CellContext`\[Mu]$$)^(-1) (1 + 
            2 $CellContext`\[Mu]$$ - $CellContext`\[Gamma] (
             1 + $CellContext`\[Mu]$$)), 
           Max[
            
            Re[(1 + 2 $CellContext`\[Mu]$$ + $CellContext`\[Gamma]^2 \
$CellContext`\[Mu]$$^2)^(-1) (1 - $CellContext`\[Gamma] + 
              2 $CellContext`\[Mu]$$ - (
               2 $CellContext`\[Gamma]) $CellContext`\[Mu]$$ - $CellContext`\
\[Gamma] $CellContext`\[Mu]$$^2 + $CellContext`\[Gamma]^2 \
$CellContext`\[Mu]$$^2 - ($CellContext`\[Gamma]^2 $CellContext`\[Mu]$$^2 - \
$CellContext`\[Gamma]^4 $CellContext`\[Mu]$$^2 + (
                 2 $CellContext`\[Gamma]^2) $CellContext`\[Mu]$$^3 - (
                2 $CellContext`\[Gamma]^4) $CellContext`\[Mu]$$^3 + \
$CellContext`\[Gamma]^2 $CellContext`\[Mu]$$^4 - $CellContext`\[Gamma]^4 \
$CellContext`\[Mu]$$^4)^Rational[1, 2])], Rational[1, 2] 
            Re[(-2 + $CellContext`\[Gamma]^2 - 
                4 $CellContext`\[Mu]$$ + (
                  3 $CellContext`\[Gamma]^2) $CellContext`\[Mu]$$)^(-1) (-2 + 
               2 $CellContext`\[Gamma] - 
               4 $CellContext`\[Mu]$$ + (
                 2 $CellContext`\[Gamma]) $CellContext`\[Mu]$$ + (
                 2 $CellContext`\[Gamma]^2) $CellContext`\[Mu]$$ + ((2 - 
                   2 $CellContext`\[Gamma] + 
                   4 $CellContext`\[Mu]$$ - (
                    2 $CellContext`\[Gamma]) $CellContext`\[Mu]$$ - (
                    2 $CellContext`\[Gamma]^2) $CellContext`\[Mu]$$)^2 - (
                  4 (-1 + 
                   2 $CellContext`\[Gamma] - $CellContext`\[Gamma]^2 - \
$CellContext`\[Mu]$$ + (
                    2 $CellContext`\[Gamma]) $CellContext`\[Mu]$$ - \
$CellContext`\[Gamma]^2 $CellContext`\[Mu]$$)) (-2 + $CellContext`\[Gamma]^2 - 
                  4 $CellContext`\[Mu]$$ + (
                    3 $CellContext`\[Gamma]^2) $CellContext`\[Mu]$$))^
                Rational[1, 2])]]}, {$CellContext`\[Gamma], 0, 1}, 
          PlotRange -> {0, 1}, PlotStyle -> {{Black, Thick}, {Black}}, 
          Filling -> {2 -> Bottom}, FillingStyle -> {LightGray}, 
          AxesLabel -> {"\[Gamma]", "c"}, PlotLegends -> Placed[
            
            LineLegend[{
             "\!\(\*SubscriptBox[\(c\), \(DRAS\)]\)(\[Mu])", 
              "\!\(\*SubscriptBox[\(c\), \(PROF\)]\)(\[Mu])"}, 
             LabelStyle -> {FontFamily -> "Courier"}], {0.75, 0.8}], 
          Ticks -> {{0, 1}, {0, 1}}]], 
        Graphics[{
          
          Line[{{1, 0}, {
            1, $CellContext`\[Mu]$$/(1 + 2 $CellContext`\[Mu]$$)}}]}]], 
      "Specifications" :> {{{$CellContext`\[Mu]$$, 6}, 0.01, 15}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{511., {207., 214.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.7155775491162333`*^9, 3.7155775834442334`*^9, 3.7155776466672335`*^9, {
   3.7155778346142335`*^9, 3.7155778795732336`*^9}, 3.7155783264922333`*^9, 
   3.7155806393922334`*^9, 3.7155848390372334`*^9, 3.7618358123157363`*^9, 
   3.761836452471116*^9, 3.762067482876736*^9, 3.762067702647091*^9, 
   3.762067763058548*^9, 3.7631169659294434`*^9, 3.7631170382320995`*^9, 
   3.763117176756588*^9, 3.7631172301507645`*^9, 3.7631172995970254`*^9, 
   3.7631173660582695`*^9, {3.763117449769413*^9, 3.763117468095366*^9}, {
   3.7631175288528647`*^9, 3.763117554252965*^9}, {3.763117815745575*^9, 
   3.7631178258545127`*^9}, 3.7631209873398314`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Summarizing", " ", "the", " ", "effect", " ", "of", " ", "exclusivity", 
    " ", "as", " ", "in", " ", "the", " ", "paper", " ", 
    RowBox[{"(", 
     RowBox[{"figure", " ", "1"}], ")"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Mu]plot", "=", "6"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"vertline", "=", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "p1Eequ"}], "}"}]}], "}"}], "/.", 
      RowBox[{"\[Mu]", "\[Rule]", "\[Mu]plot"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"cdrast", ",", 
       RowBox[{"Max", "[", 
        RowBox[{
         RowBox[{"Re", "[", "profitability1E", "]"}], ",", 
         RowBox[{"Re", "[", "profitability1Ecorn", "]"}]}], "]"}]}], "}"}], "/.", 
     RowBox[{"\[Mu]", "\[Rule]", "\[Mu]plot"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Figure1", "=", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"Quiet", "[", 
       RowBox[{"Plot", "[", 
        RowBox[{"%", ",", 
         RowBox[{"{", 
          RowBox[{"\[Gamma]", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"Black", ",", "Thick"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"Black", ",", 
              RowBox[{"Thickness", "[", "0.001", "]"}]}], "}"}]}], "}"}]}], 
         ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"Filling", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"2", "->", "Bottom"}], "}"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"FillingStyle", "\[Rule]", 
          RowBox[{"{", "LightGray", "}"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<\[Gamma]\>\"", ",", "\"\<c\>\""}], "}"}]}], ",", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"PlotLegends", "\[Rule]", 
          RowBox[{"Placed", "[", 
           RowBox[{
            RowBox[{"LineLegend", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
               "\"\<\!\(\*SubscriptBox[\(c\), \(DRAS\)]\)(\[Mu])\>\"", ",", 
                "\"\<\!\(\*SubscriptBox[\(c\), \(PROF\)]\)(\[Mu])\>\""}], 
               "}"}], ",", 
              RowBox[{"LabelStyle", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"FontFamily", "\[Rule]", "\"\<Courier\>\""}], 
                "}"}]}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"0.75", ",", "0.8"}], "}"}]}], "]"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Ticks", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "1.1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1.2"}], "}"}]}], "}"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"AxesStyle", "\[Rule]", 
          RowBox[{"Arrowheads", "[", 
           RowBox[{"{", 
            RowBox[{"0.0", ",", "0.02"}], "}"}], "]"}]}]}], 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{"Line", "[", "%%", "]"}], "}"}], "]"}]}], 
     "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"ParentDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", "\"\<Figures\>\"", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<Figure1.pdf\>\"", ",", "Figure1"}], "]"}], ";"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.7618366542239323`*^9, 3.761836655091879*^9}, {
   3.761836691051484*^9, 3.7618367257508907`*^9}, {3.7620658850211153`*^9, 
   3.762065912652255*^9}, {3.7620677714481244`*^9, 3.762067772234975*^9}, {
   3.7631178477220263`*^9, 3.763117917080558*^9}, {3.763118053850721*^9, 
   3.7631180558234463`*^9}, {3.763118395460063*^9, 3.7631184275641975`*^9}, {
   3.76311848773929*^9, 3.7631186754482145`*^9}, {3.7631187229232407`*^9, 
   3.7631187604309235`*^9}, 3.7631188373352833`*^9, {3.7631209813458643`*^9, 
   3.7631210027436666`*^9}}],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{GraphicsComplexBox[CompressedData["
1:eJxl1gs0VPsCx3GVTqqTEj1UFKUnQyWk9EvqEMrxKBSD0oNKikrSYTokj6KS
VOQZqTwy461URAolMh4zY4wZb7YekhTXWff6d9e9e6299vqvtfde/73X3p/v
X2HfcbMD48XExBpG93+Ohgfaq5517Np0OVX2+8gIBYYEc1mAbBg22XlFOSdT
sLKOTev7mIAAZ9b7YCMKU0cYNvryadhq+vZE2+deKJn2thcFsbD8+qs136N6
caZyPSK+5OKe6k2/4s29mMOS4o0bV4jrSQZbSjt6kCXQK3+78QVkPd+GMoJ6
8MI5ar51dzHKktTHfaH1oH+pzvSUY6XoSPdqvFvXjfGDD2fMV3qNeJnb+uPO
dUNjxD7LPLUcFea35SIXd6PcV72yZOVbLOr1mEVVdGFhaNdgcu87/N6iHD3o
2oWugSbeB7X3cGIWXds4rwsJnfmvJa9Ug85TnatZ0AlJuSRKKKzBeUfPwg67
TgQ7ZR6MWVKLaSVJ72omd+Lr5ofCw95sqF944HbmUQfc1xSzZhfVoUI21Mds
VweaUouDqhQaMDLVaKHoazuGnGvurPBsxB5rYZPq7Xas0p00fDCfA6UL9lOY
eu3Qj1M49HgOD4ETM0p6RG04I2en2GzTBHvH1m77K21Q7t41lb2DDzv5QfVg
rTZIT++TKP7Ox8CaZsnjja0QL7yTtjiyGcOKj8wCfVtxRD2/frKRANHHjJfb
Lm3Fw+37Yp5+FcBJ+s3C9jIR+rvmzWgNb0FCmDLjoZsImeb6E8K2CuHhut99
6WwRvA38olmtQuQvO19V/1QIBa5hXbyfCCu1T/25zUkIbU3fMNk1rVBN2uJw
+HchbOTfDo6rbsV96lNjUWYL+l9fFrgy2pBzzaO91rIFEeJ0d7Ml7dCSaqYr
irVAmpcZN764HYLOZQNKDwSYeJ5hsf5EB5QWblVoNhZALJmeJpjZiXqaXmZN
fzNO3k67PPNFJ5RuzWn0vtmMJ6suSUi5dOEO/bVii3YzpAxPKl+Q7AZjxK7m
LyEfHJV31WcLuiE29HrO+4t8pN/FEiG9B31Vc1/aqvJhm6YhJTfcA2mJwOV6
zCb4+MUyOA9Gv1OFy53rB3lIaZe7I2lM4cnHXT6xRjzcXDi1/5//wO/c7uS6
AC5iZplcDJT1hei3N0aZNRQUfWUMJiVSiNGolXnSyQVX1V/vsqw7cvd8itvT
SeGwxq2PU85SoMmEG6rO54FTFXJ3QjUFGevZTYZ5XFg6Djy5JuuIePGLO1X6
KQSG7C0J3kehf/zpA4fX8jCy0szNr4BCg/7Xwb/fc5HnUVHG6KBg7KxRLBXH
hVEFOyNK1gIR9SYJ4d8pLCgoSN9hScH6u+iTL3gItWTa/vGYwiYc9I/hjZ5/
j8bawqOQ5pBoSkvlYrnx0aZnXyh0nCzR6L/BxdroiEim7FZIF6ubGP2k4GjW
o5RqSmHK16j117fxUN/T8j7xIQVKW74yVchF2Aa7FfF1FOxt6REbWVycEERa
KFAUbrv8dX5CJBf8zA3O9qPz0jwj2dcawoW43jzXJll1mKxPSrg3TOFSlJ89
bycF4edBm9sGPAxreU1j36fwSsvzY2YbFzkXB/ZXf6CgvTcvXy+bi3CVdSGm
3RTcjjbETIkevd+4moTQAQrTTzlL917josA5XlVtdN70sxnlTcFcjHmmyN3B
/G/PRrLVWFl3uohnP9d/bGpqbiWeGZ2ZVvfjkoB4NkujzENbyCGezaj6wE67
Vk88G7rD2NKQziae5a46VTpxRi3x7OrX8tWijBriWWVIyiTbq9XEM13nDlGc
+3vimdB/Zck5nyrimVRfuXZR7DviWRu9oyzS+y3xbBVbdNvocwXxLC1b/F6J
bTnxrOgs/yhN9Jp49n48I2H+zTLi2TDtxeZonVfEs8maK/oCJ5cSz9J2spUm
vX5JPOtJMc+OjiomnmFivo9FaBHxbEXaK0mXMy+IZ4MjQ5F1ns+JZ8FeuvKs
oGfEs6rBsje7FQuJZ9FybdEn6U+IZzHhsxVLffOJZ9+Ke+XnF+USzybR51jF
KecQz3SlZlutZWQRz2pHPqyZP8wingV9C7fYdJlJPJNmWb8wlsggnpm6bZvi
n5ROPNu9we/VhkOpxLM92Qbtl4oeEs/8OuaM+6mTTDxLUhla23w9kXi25o2D
6MqyBOKZaulKf+uIWOJZeOBWX2Wju8SzLccX2SnW3iKeTeQojQTK3yCeHay1
WNxZFUo8E3kX5Kw8GEA8O7lX3/Fosg/xTN9+2J2z7wTxjDFwTPdSqPqmMc9+
zHLyoFf0YNf9m2/cpmUgucuw5slxPiqny8jQNmej1Ob04WvCBug/vydZ4VkA
x5Q4h8NX6+BAT7S9z3uGXFZN8tPaWuIhTedsy28GDsTDrtQzntGtvegx7y4w
qkzHZ4vusJvnmuGpxhj+JsrE408vHxwvaERTKZWYoZmPyajxmzCtHhqRlolh
qs+wsWZembgum3g69+L6EFkxZ+SPLx08CybWyv8W3MXnQZFKXLH/dg4Yi8IN
0tUaiLdqknOqnmqbEm854rvjd7hRyE0Oz8ympWOdeteZeeMFePcs242nlQlN
jb84hps5WPVGxk0pPA9Dr03FXXbWY8tp+xuz0gtR9HTqOVUPNvH6R7t84DoH
FwSY9byflJIBt2VG5o01TfDw5t416MmGvCXb38C/gXg+XVMzcbrAGktiDAOk
r2dhb3uYU6BhIz4mRjSrdjPh3GgrMn/1y3v2DL95S9V1iffPtZqOJuaOup7M
3t/4JA2aAT96vbcJ8F3CnGYqYMEuVYX/IJiDKuNl9fRteZieEVei4loP5Vm5
uUFWhXA7IMY3C2OTXmRtyhH32+6K4+e3vNWxzcC5R7qWEip8xJd6WOeHZyPp
tPOjH6wG0hO+ecclLS06TNpFehc3ZqHPVBbZjEawq3q4ByKZuLF7eVFsLo/0
Jid4ZcyK6u2457Eg90hIJsqiix4HDTViqpeeaHADCypHtudZbvvVI22Om6RA
bTXp0anFBhLVHApLapTtpVzSMLh1kdeGQwLMSIkJmpLNwjkWPSQni4OEy2rB
QwvyQJd4d38Xox5xjqI3JcqFsKTEKgPi2KRnfWa+MxfXukIw81iF1boMCLlu
L+x28pFzpCTL/Ug2XDr3OviXN5DeFZwYePl1tT0cg9fGQioLWWI7/wy/2wjD
Q3M5Pu5MuBZ+WaBUwCM9ZJv3unYs3om8Bc6zlRwzIS7uLy4nx8FfUi4tMjIs
uHveitLx+dVLdpReSdGb9XDcWNRkWMxEdoawJVeNh4jWuW28/SyYsG+Jr5r5
q6eLVOzm7FBVID39qVZl49RLIcLJkq78x+j34C17Yr6HAPO89bUPxbLwaPbd
oB/lHEjSMkVlEnn4duKh9Y+AetgED1kIZxfi+aPcytRkNunxuQnxVl4LTiDS
9oLxQYUMBCTSB6bZ8VGkc+xA1a5stK/TNfGqayC9DmmgLfpWYI/j9AaTyKFM
XJ5qM2FfSiNe2s/K3+bEhOZEW/2G0fcz1nM5daaX8dI/8bJ3xkvGzkxIhqw9
5kXjQMvm732KYiyEfUqv+z3uV++H3ZLlq2U3Qd6/jm6VzgQ/umK1fQ4PZqtp
B7tNWNiS8ceVoZW/1gMzzYcWLHy1AqELJti6XWJiviX3YEseD8UlVo6TlrPg
2fN4b4QDFw8+ptjr1DHhnmulE9//a/2Qtvp67R2aFOKk+u7xdZlQX/rDmcbq
/b/n+V9/bqq7NNhZMJFx7AWTyujF89X/HjOvPu4QVPLIekTsP9vY9WPjsfuP
jce8Hhv/CwVU3xk=
      "], {{{}, {}, {}, 
        {GrayLevel[0.85], EdgeForm[None], 
         GraphicsGroupBox[{
           PolygonBox[{{78, 215, 216, 140, 149, 161, 176, 194, 129, 135, 144, 
            156, 171, 189, 81, 80, 79, 128, 134, 143, 155, 170, 188}}], 
           PolygonBox[{{198, 217, 218, 127, 209, 187, 205, 169, 184, 202, 154,
             166, 181, 199, 142, 151, 163, 178, 196, 133, 139, 148, 160, 175, 
            193, 126, 125, 124, 123, 122, 121, 120, 119, 118, 117, 116, 115, 
            114, 113, 112, 111, 110, 109, 108, 107, 106, 105, 104, 103, 102, 
            101, 100, 99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 86, 
            85, 132, 138, 147, 159, 174, 192, 84, 131, 137, 146, 158, 173, 
            191, 83, 141, 150, 162, 177, 195, 130, 152, 164, 179, 197, 136, 
            167, 182, 200, 145, 157, 172, 190, 82, 186, 204, 168, 207, 183, 
            201, 153, 208, 185, 203, 165, 206, 
            180}}]}]}, {}, {}, {}, {}, {}, {}}, {{}, {}, 
        {GrayLevel[0], Thickness[Large], 
         LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 210, 213, 5, 6, 7, 8, 9,
           10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26,
           27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43,
           44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55,
           74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}]}, 
        {GrayLevel[0], Thickness[0.001], 
         LineBox[{78, 188, 170, 155, 143, 134, 128, 79, 80, 81, 189, 171, 156,
           144, 135, 129, 194, 176, 161, 149, 140}], 
         LineBox[{198, 180, 206, 165, 203, 185, 208, 153, 201, 183, 207, 168, 
          204, 186, 82, 190, 172, 157, 145, 200, 182, 167, 136, 197, 179, 164,
           152, 130, 195, 177, 162, 150, 141, 83, 191, 173, 158, 146, 137, 
          131, 84, 192, 174, 159, 147, 138, 132, 85, 86, 87, 88, 89, 90, 91, 
          92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 
          107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 
          120, 121, 122, 123, 124, 125, 126, 193, 175, 160, 148, 139, 133, 
          196, 178, 163, 151, 142, 199, 181, 166, 154, 202, 184, 169, 205, 
          187, 209, 127}]}, 
        {GrayLevel[0.85], LineBox[{212, 214, 211}]}}, {{}, {}, {}, {}}}], 
     LineBox[NCache[{{1, 0}, {1, Rational[6, 13]}}, {{1, 0}, {
        1, 0.46153846153846156`}}]]}, InsetBox[
     TemplateBox[{
      "\"\\!\\(\\*SubscriptBox[\\(c\\), \\(DRAS\\)]\\)(\[Mu])\"",
       "\"\\!\\(\\*SubscriptBox[\\(c\\), \\(PROF\\)]\\)(\[Mu])\""},
      "LineLegend",
      DisplayFunction->(StyleBox[
        StyleBox[
         PaneBox[
          TagBox[
           GridBox[{{
              TagBox[
               GridBox[{{
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    GrayLevel[0], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    GrayLevel[0], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {20, 10}, PlotRangePadding -> None, 
                   ImagePadding -> 1, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    GrayLevel[0], 
                    Thickness[0.001]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    GrayLevel[0], 
                    Thickness[0.001]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {20, 10}, PlotRangePadding -> None, 
                   ImagePadding -> 1, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                GridBoxAlignment -> {
                 "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                AutoDelete -> False, 
                GridBoxDividers -> {
                 "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}],
                "Grid"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
            AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
           "Grid"], Alignment -> Left, AppearanceElements -> None, 
          ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"],
          LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Courier"}, 
        Background -> Automatic, StripOnInput -> False]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"GrayLevel", "[", "0", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"GrayLevel", "[", "0", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.001`", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"FontFamily", "\[Rule]", "\"Courier\""}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"FontFamily", "\[Rule]", "\"Courier\""}], "}"}]}]}], 
         "]"}]& )], Scaled[{0.75, 0.8}], ImageScaled[{0.5, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->True,
   AxesLabel->{
     FormBox["\"\[Gamma]\"", TraditionalForm], 
     FormBox["\"c\"", TraditionalForm]},
   AxesOrigin->{0, 0},
   AxesStyle->Arrowheads[{0., 0.02}],
   Method->{"AxesInFront" -> True},
   PlotRange->{{0, 1.1}, {0, 1.2}},
   PlotRangeClipping->True,
   PlotRangePadding->{Automatic, Automatic},
   Ticks->{{{0, 
       FormBox["0", TraditionalForm]}, {1, 
       FormBox["1", TraditionalForm]}}, {{-1, 
       FormBox[
        RowBox[{"-", "1"}], TraditionalForm]}, {1, 
       FormBox["1", TraditionalForm]}}}],
  InterpretTemplate[Legended[
    Graphics[{
      GraphicsComplex[CompressedData["
1:eJxl1gs0VPsCx3GVTqqTEj1UFKUnQyWk9EvqEMrxKBSD0oNKikrSYTokj6KS
VOQZqTwy461URAolMh4zY4wZb7YekhTXWff6d9e9e6299vqvtfde/73X3p/v
X2HfcbMD48XExBpG93+Ohgfaq5517Np0OVX2+8gIBYYEc1mAbBg22XlFOSdT
sLKOTev7mIAAZ9b7YCMKU0cYNvryadhq+vZE2+deKJn2thcFsbD8+qs136N6
caZyPSK+5OKe6k2/4s29mMOS4o0bV4jrSQZbSjt6kCXQK3+78QVkPd+GMoJ6
8MI5ar51dzHKktTHfaH1oH+pzvSUY6XoSPdqvFvXjfGDD2fMV3qNeJnb+uPO
dUNjxD7LPLUcFea35SIXd6PcV72yZOVbLOr1mEVVdGFhaNdgcu87/N6iHD3o
2oWugSbeB7X3cGIWXds4rwsJnfmvJa9Ug85TnatZ0AlJuSRKKKzBeUfPwg67
TgQ7ZR6MWVKLaSVJ72omd+Lr5ofCw95sqF944HbmUQfc1xSzZhfVoUI21Mds
VweaUouDqhQaMDLVaKHoazuGnGvurPBsxB5rYZPq7Xas0p00fDCfA6UL9lOY
eu3Qj1M49HgOD4ETM0p6RG04I2en2GzTBHvH1m77K21Q7t41lb2DDzv5QfVg
rTZIT++TKP7Ox8CaZsnjja0QL7yTtjiyGcOKj8wCfVtxRD2/frKRANHHjJfb
Lm3Fw+37Yp5+FcBJ+s3C9jIR+rvmzWgNb0FCmDLjoZsImeb6E8K2CuHhut99
6WwRvA38olmtQuQvO19V/1QIBa5hXbyfCCu1T/25zUkIbU3fMNk1rVBN2uJw
+HchbOTfDo6rbsV96lNjUWYL+l9fFrgy2pBzzaO91rIFEeJ0d7Ml7dCSaqYr
irVAmpcZN764HYLOZQNKDwSYeJ5hsf5EB5QWblVoNhZALJmeJpjZiXqaXmZN
fzNO3k67PPNFJ5RuzWn0vtmMJ6suSUi5dOEO/bVii3YzpAxPKl+Q7AZjxK7m
LyEfHJV31WcLuiE29HrO+4t8pN/FEiG9B31Vc1/aqvJhm6YhJTfcA2mJwOV6
zCb4+MUyOA9Gv1OFy53rB3lIaZe7I2lM4cnHXT6xRjzcXDi1/5//wO/c7uS6
AC5iZplcDJT1hei3N0aZNRQUfWUMJiVSiNGolXnSyQVX1V/vsqw7cvd8itvT
SeGwxq2PU85SoMmEG6rO54FTFXJ3QjUFGevZTYZ5XFg6Djy5JuuIePGLO1X6
KQSG7C0J3kehf/zpA4fX8jCy0szNr4BCg/7Xwb/fc5HnUVHG6KBg7KxRLBXH
hVEFOyNK1gIR9SYJ4d8pLCgoSN9hScH6u+iTL3gItWTa/vGYwiYc9I/hjZ5/
j8bawqOQ5pBoSkvlYrnx0aZnXyh0nCzR6L/BxdroiEim7FZIF6ubGP2k4GjW
o5RqSmHK16j117fxUN/T8j7xIQVKW74yVchF2Aa7FfF1FOxt6REbWVycEERa
KFAUbrv8dX5CJBf8zA3O9qPz0jwj2dcawoW43jzXJll1mKxPSrg3TOFSlJ89
bycF4edBm9sGPAxreU1j36fwSsvzY2YbFzkXB/ZXf6CgvTcvXy+bi3CVdSGm
3RTcjjbETIkevd+4moTQAQrTTzlL917josA5XlVtdN70sxnlTcFcjHmmyN3B
/G/PRrLVWFl3uohnP9d/bGpqbiWeGZ2ZVvfjkoB4NkujzENbyCGezaj6wE67
Vk88G7rD2NKQziae5a46VTpxRi3x7OrX8tWijBriWWVIyiTbq9XEM13nDlGc
+3vimdB/Zck5nyrimVRfuXZR7DviWRu9oyzS+y3xbBVbdNvocwXxLC1b/F6J
bTnxrOgs/yhN9Jp49n48I2H+zTLi2TDtxeZonVfEs8maK/oCJ5cSz9J2spUm
vX5JPOtJMc+OjiomnmFivo9FaBHxbEXaK0mXMy+IZ4MjQ5F1ns+JZ8FeuvKs
oGfEs6rBsje7FQuJZ9FybdEn6U+IZzHhsxVLffOJZ9+Ke+XnF+USzybR51jF
KecQz3SlZlutZWQRz2pHPqyZP8wingV9C7fYdJlJPJNmWb8wlsggnpm6bZvi
n5ROPNu9we/VhkOpxLM92Qbtl4oeEs/8OuaM+6mTTDxLUhla23w9kXi25o2D
6MqyBOKZaulKf+uIWOJZeOBWX2Wju8SzLccX2SnW3iKeTeQojQTK3yCeHay1
WNxZFUo8E3kX5Kw8GEA8O7lX3/Fosg/xTN9+2J2z7wTxjDFwTPdSqPqmMc9+
zHLyoFf0YNf9m2/cpmUgucuw5slxPiqny8jQNmej1Ob04WvCBug/vydZ4VkA
x5Q4h8NX6+BAT7S9z3uGXFZN8tPaWuIhTedsy28GDsTDrtQzntGtvegx7y4w
qkzHZ4vusJvnmuGpxhj+JsrE408vHxwvaERTKZWYoZmPyajxmzCtHhqRlolh
qs+wsWZembgum3g69+L6EFkxZ+SPLx08CybWyv8W3MXnQZFKXLH/dg4Yi8IN
0tUaiLdqknOqnmqbEm854rvjd7hRyE0Oz8ympWOdeteZeeMFePcs242nlQlN
jb84hps5WPVGxk0pPA9Dr03FXXbWY8tp+xuz0gtR9HTqOVUPNvH6R7t84DoH
FwSY9byflJIBt2VG5o01TfDw5t416MmGvCXb38C/gXg+XVMzcbrAGktiDAOk
r2dhb3uYU6BhIz4mRjSrdjPh3GgrMn/1y3v2DL95S9V1iffPtZqOJuaOup7M
3t/4JA2aAT96vbcJ8F3CnGYqYMEuVYX/IJiDKuNl9fRteZieEVei4loP5Vm5
uUFWhXA7IMY3C2OTXmRtyhH32+6K4+e3vNWxzcC5R7qWEip8xJd6WOeHZyPp
tPOjH6wG0hO+ecclLS06TNpFehc3ZqHPVBbZjEawq3q4ByKZuLF7eVFsLo/0
Jid4ZcyK6u2457Eg90hIJsqiix4HDTViqpeeaHADCypHtudZbvvVI22Om6RA
bTXp0anFBhLVHApLapTtpVzSMLh1kdeGQwLMSIkJmpLNwjkWPSQni4OEy2rB
QwvyQJd4d38Xox5xjqI3JcqFsKTEKgPi2KRnfWa+MxfXukIw81iF1boMCLlu
L+x28pFzpCTL/Ug2XDr3OviXN5DeFZwYePl1tT0cg9fGQioLWWI7/wy/2wjD
Q3M5Pu5MuBZ+WaBUwCM9ZJv3unYs3om8Bc6zlRwzIS7uLy4nx8FfUi4tMjIs
uHveitLx+dVLdpReSdGb9XDcWNRkWMxEdoawJVeNh4jWuW28/SyYsG+Jr5r5
q6eLVOzm7FBVID39qVZl49RLIcLJkq78x+j34C17Yr6HAPO89bUPxbLwaPbd
oB/lHEjSMkVlEnn4duKh9Y+AetgED1kIZxfi+aPcytRkNunxuQnxVl4LTiDS
9oLxQYUMBCTSB6bZ8VGkc+xA1a5stK/TNfGqayC9DmmgLfpWYI/j9AaTyKFM
XJ5qM2FfSiNe2s/K3+bEhOZEW/2G0fcz1nM5daaX8dI/8bJ3xkvGzkxIhqw9
5kXjQMvm732KYiyEfUqv+z3uV++H3ZLlq2U3Qd6/jm6VzgQ/umK1fQ4PZqtp
B7tNWNiS8ceVoZW/1gMzzYcWLHy1AqELJti6XWJiviX3YEseD8UlVo6TlrPg
2fN4b4QDFw8+ptjr1DHhnmulE9//a/2Qtvp67R2aFOKk+u7xdZlQX/rDmcbq
/b/n+V9/bqq7NNhZMJFx7AWTyujF89X/HjOvPu4QVPLIekTsP9vY9WPjsfuP
jce8Hhv/CwVU3xk=
       "], {{{}, {}, {}, {
          EdgeForm[], 
          GrayLevel[0.85], 
          GraphicsGroup[{
            
            Polygon[{{78, 215, 216, 140, 149, 161, 176, 194, 129, 135, 144, 
             156, 171, 189, 81, 80, 79, 128, 134, 143, 155, 170, 188}}], 
            
            Polygon[{{198, 217, 218, 127, 209, 187, 205, 169, 184, 202, 154, 
             166, 181, 199, 142, 151, 163, 178, 196, 133, 139, 148, 160, 175, 
             193, 126, 125, 124, 123, 122, 121, 120, 119, 118, 117, 116, 115, 
             114, 113, 112, 111, 110, 109, 108, 107, 106, 105, 104, 103, 102, 
             101, 100, 99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 86,
              85, 132, 138, 147, 159, 174, 192, 84, 131, 137, 146, 158, 173, 
             191, 83, 141, 150, 162, 177, 195, 130, 152, 164, 179, 197, 136, 
             167, 182, 200, 145, 157, 172, 190, 82, 186, 204, 168, 207, 183, 
             201, 153, 208, 185, 203, 165, 206, 
             180}}]}]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {
          Hue[0.67, 0.6, 0.6], 
          GrayLevel[0], 
          Thickness[Large], 
          
          Line[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 210, 213, 5, 6, 7, 8, 9, 
           10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26,
            27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 
           43, 44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58,
            55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}]}, {
          Hue[0.9060679774997897, 0.6, 0.6], 
          GrayLevel[0], 
          Thickness[0.001], 
          
          Line[{78, 188, 170, 155, 143, 134, 128, 79, 80, 81, 189, 171, 156, 
           144, 135, 129, 194, 176, 161, 149, 140}], 
          
          Line[{198, 180, 206, 165, 203, 185, 208, 153, 201, 183, 207, 168, 
           204, 186, 82, 190, 172, 157, 145, 200, 182, 167, 136, 197, 179, 
           164, 152, 130, 195, 177, 162, 150, 141, 83, 191, 173, 158, 146, 
           137, 131, 84, 192, 174, 159, 147, 138, 132, 85, 86, 87, 88, 89, 90,
            91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 
           106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 
           119, 120, 121, 122, 123, 124, 125, 126, 193, 175, 160, 148, 139, 
           133, 196, 178, 163, 151, 142, 199, 181, 166, 154, 202, 184, 169, 
           205, 187, 209, 127}]}, {
          GrayLevel[0.85], 
          Line[{212, 214, 211}]}}, {{}, {}, {}, {}}}], {
       Line[{{1, 0}, {1, 
          Rational[6, 13]}}]}}, {
     AspectRatio -> GoldenRatio^(-1), Axes -> True, 
      AxesLabel -> {"\[Gamma]", "c"}, AxesOrigin -> {0, 0}, AxesStyle -> 
      Arrowheads[{0., 0.02}], Method -> {"AxesInFront" -> True}, 
      PlotRange -> {{0, 1.1}, {0, 1.2}}, PlotRangeClipping -> True, 
      PlotRangePadding -> {Automatic, Automatic}, 
      Ticks -> {{0, 1}, {-1, 1}}}], {
     Placed[
      LineLegend[{
        Directive[
         GrayLevel[0], 
         Thickness[Large]], 
        Directive[
         GrayLevel[0], 
         Thickness[0.001]]}, {
       "\!\(\*SubscriptBox[\(c\), \(DRAS\)]\)(\[Mu])", 
        "\!\(\*SubscriptBox[\(c\), \(PROF\)]\)(\[Mu])"}, 
       LabelStyle -> {FontFamily -> "Courier"}, LegendLayout -> "Column", 
       LabelStyle -> {FontFamily -> "Courier"}], {0.75, 0.8}, Identity]}]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{
  3.761836727030423*^9, 3.7618367597823253`*^9, 3.7620674830891666`*^9, 
   3.7620677027578073`*^9, 3.7620677727855034`*^9, 3.7631169661907444`*^9, 
   3.7631170383098564`*^9, 3.763117187644451*^9, 3.763117882213791*^9, 
   3.7631179135709143`*^9, 3.7631180574999957`*^9, {3.763118403580346*^9, 
   3.7631184367845407`*^9}, {3.763118498138443*^9, 3.763118520131678*^9}, 
   3.7631185682668796`*^9, {3.7631186026419415`*^9, 3.763118634678258*^9}, 
   3.7631186758880396`*^9, {3.763118724031277*^9, 3.7631187609315844`*^9}, 
   3.763118843223489*^9, {3.763120987454523*^9, 3.7631210030119157`*^9}}]
}, Open  ]]
}, Closed]]
}, Open  ]]
},
WindowSize->{1264, 583},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.25, 1.25 Inherited],
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 410, 7, 249, "Title"],
Cell[993, 31, 387, 6, 62, "Subtitle"],
Cell[1383, 39, 200, 3, 27, "Author"],
Cell[CellGroupData[{
Cell[1608, 46, 191, 2, 98, "Section"],
Cell[1802, 50, 2707, 67, 221, "Input"],
Cell[CellGroupData[{
Cell[4534, 121, 1186, 29, 83, "Input"],
Cell[5723, 152, 303, 5, 36, "Output"],
Cell[6029, 159, 763, 21, 56, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6829, 185, 1137, 30, 83, "Input"],
Cell[7969, 217, 516, 12, 59, "Output"],
Cell[8488, 231, 515, 12, 59, "Output"],
Cell[9006, 245, 344, 6, 36, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9387, 256, 1627, 47, 198, "Input"],
Cell[11017, 305, 1027, 28, 66, "Output"],
Cell[12047, 335, 609, 15, 56, "Output"],
Cell[12659, 352, 647, 15, 59, "Output"],
Cell[13309, 369, 425, 7, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13771, 381, 789, 17, 36, "Input"],
Cell[14563, 400, 379, 9, 56, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[14991, 415, 261, 3, 60, "Section"],
Cell[CellGroupData[{
Cell[15277, 422, 1139, 26, 128, "Input"],
Cell[16419, 450, 834, 22, 87, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17290, 477, 2891, 68, 416, "Input"],
Cell[20184, 547, 743, 20, 87, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20964, 572, 680, 15, 93, "Input"],
Cell[21647, 589, 693, 10, 87, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22377, 604, 658, 13, 93, "Input"],
Cell[23038, 619, 844, 26, 87, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23919, 650, 835, 17, 93, "Input"],
Cell[24757, 669, 683, 10, 87, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25477, 684, 1333, 25, 93, "Input"],
Cell[26813, 711, 430, 7, 87, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27280, 723, 1179, 29, 165, "Input"],
Cell[28462, 754, 806, 24, 87, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29305, 783, 1929, 43, 237, "Input"],
Cell[31237, 828, 356, 7, 87, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31630, 840, 1070, 27, 128, "Input"],
Cell[32703, 869, 632, 18, 87, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33372, 892, 996, 25, 128, "Input"],
Cell[34371, 919, 769, 15, 87, "Output"],
Cell[35143, 936, 1383, 35, 87, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36563, 976, 2505, 60, 381, "Input"],
Cell[39071, 1038, 728, 19, 87, "Output"],
Cell[39802, 1059, 415, 8, 87, "Output"],
Cell[40220, 1069, 797, 22, 87, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41054, 1096, 752, 20, 128, "Input"],
Cell[41809, 1118, 672, 19, 87, "Output"],
Cell[42484, 1139, 370, 9, 87, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42891, 1153, 1300, 29, 165, "Input"],
Cell[44194, 1184, 460, 11, 87, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44691, 1200, 1615, 45, 165, "Input"],
Cell[46309, 1247, 293, 5, 87, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46639, 1257, 1803, 43, 165, "Input"],
Cell[48445, 1302, 2593, 48, 87, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[51087, 1356, 570, 9, 60, "Section"],
Cell[CellGroupData[{
Cell[51682, 1369, 2683, 55, 428, "Input"],
Cell[54368, 1426, 673, 19, 87, "Output"],
Cell[55044, 1447, 377, 9, 87, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55458, 1461, 1588, 38, 320, "Input"],
Cell[57049, 1501, 872, 16, 87, "Output"],
Cell[57924, 1519, 899, 17, 87, "Output"]
}, Open  ]],
Cell[58838, 1539, 347, 9, 93, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[59222, 1553, 626, 10, 60, "Section"],
Cell[CellGroupData[{
Cell[59873, 1567, 5678, 130, 497, "Input"],
Cell[65554, 1699, 6390, 113, 431, "Output"]
}, Open  ]],
Cell[71959, 1815, 219, 5, 36, "Input"],
Cell[72181, 1822, 438, 12, 60, "Input"],
Cell[CellGroupData[{
Cell[72644, 1838, 4720, 109, 359, "Input"],
Cell[77367, 1949, 4744, 89, 441, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[82148, 2043, 5022, 126, 612, "Input"],
Cell[87173, 2171, 18876, 352, 321, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
